我要读取sqlserver数据库中的内容，并在一个listbox中显示。使用ADO的方法，但没有成功，高手帮我看看哪错了(主要是步骤有没有错)！下面是主要步骤：
dim cn,oRS,oCom,sqlcon,sqlstr
dim objlistbox

cn=createobject("adodb.connection")
oRS=createobject("adodb.recordset")
oCom=createobject("adodb.command")
sqlcon="provider=WinCCOLEDBProvider;catalog=CC_TDGAS_06_10_13_10_44_43 R;Data Source=.\WinCC"
cn.connectionstring=sqlcon
cn.cursorlocation=3
cn.open
sqlstr="select * from MCPDESC"
oCom.commandtype=1
set oCom.activeconnection=cn
cCom.CommandText=sqlstr
set Ors=oCom.execute
objlistbox.additem oRS.field(1).name