Dim cnnstr
Dim strsql
Dim objcnn
Dim objcmd
Dim listview
Dim m,n,s,k
Dim ors
Dim oitem
cnnstr="provider=msdasql;dsn=lks;ud=lks;pid=851108;"
Set objcnn=CreateObject("adodb.connection")
objcnn.connectionstring=cnnstr
MsgBox "1"
objcnn.open
MsgBox"connect database success!"
Set objcmd = CreateObject("adodb.command")
Set ors = CreateObject("adodb.recordset")
objcmd.activeconnection = objcnn
strsql = "select * from syscolumns"
objcmd.commandtype = 1
objcmd.commandtext = strsql
MsgBox "table success"
Set ors = objcmd.execute
MsgBox "read table"

m = ors.fields.count
HMIRuntime.Tags("a4").Write m
Set listview =ScreenItems("l1")
k=0
listview.View = 3
listview.ColumnHeaders.Clear
While k listview.ColumnHeaders.Add k+1,"",CStr(ors.fields(k).name),listview.Width/m
k=k+1
Wend
If(m>0) Then
oRs.MoveFirst
n = 0
Do While Not oRs.EOF
n = n + 1
s = Left(CStr(oRs.Fields(0).Value), 23)
Set oitem=listView.ListItems.Add()
oItem.Text = Left(CStr(oRs.Fields(0).Value), 23)
oItem.SubItems(1) = Left(oRs.Fields(1).Value, 23)
If (n > 1000) Then Exit Do
oRs.MoveNext
Loop
oRs.Close
Else
End If
Set oRs = Nothing
conn.Close
Set conn = Nothing
以上是小弟的程序，对操作自己建的数据库没有问题。但是操作wincc项目的数据库时却总也度不了。是什么问题还请大虾们指教。