我图形编辑器里我加了 Microsoft ADO Data Control 6.0和Microsoft Listview Control 6.0 两个控件，有加了一个按钮，在按钮的VBS动作下，我加如下列代码：Dim sPro
Dim sDsn
Dim sSer
Dim sCon
Dim sSql
Dim conn
Dim oRs
Dim oCom
Dim oItem
Dim m,n,s

sPro = "Provider=WinCCOLEDBProvider.1;"
sDsn = "Catalog=CC_ad_06_04_29_08_33_56R;"
sSer = "DataSoure=.\Wincc;"
sCon = sPro+sDsn+sSer

sSql = "TAG:R,'PressArchive\模拟Output0','2006-05-17 21:37:00.000','2006-05-17 21:47:00.000'"
'sSql = "TAG:R,1,'0000-00-00 00:10:00.000','0000-00-00 00:00:00.000 '
MsgBox"open with:"&vbCr&sCon&vbCr&vbCr&sSql&vbCr



Set conn = CreateObject("ADODB.Connection")
comn.ConnectionString=sCon
comn.CursorLocation =3
comn.open


Set oRs = CreateObject("ADODB.Recordset")

Set oCom =CreateObject("ADODB.Command")
oCom.CommandType = 1
Set oCom.ActionConnection = conn
oCom.CommandText = sSql


Set oRs = oCom.Execute
m = oRs.Fields.Count

ListViewCtrl.ListItems.Clear
ListViewCtrl.ColumnHeaders.Clear
ListViewCtrl.ColumnHeaders.Add,,CStr(oRs.Fields(2).Name),140
ListViewCtrl.ColumnHeaders.Add,,CStr(oRs.Fields(0).Name),60
ListViewCtrl.ColumnHeaders.Add,,CStr(oRs.Fields(1).Name),60
ListViewCtrl.ColumnHeaders.Add,,CStr(oRs.Fields(34).Name),100
If (m>0) Then
oRs.MoveFirst
n=0

Do While Not oRs.EOF
n=n+1
If (n<1000) Then
s = Left(CStr(oRs.Fields(1).Value),23)

Set oItem = ListViewCtrl.ListItems.Add()
oItem.Text =CStr(oRs.Fields(2).Value)
oItem.SubItem(1) = CStr(oRs.Fields(0).Value)
oItem.SubItem(2) = CStr(oRs.Fields(1).Value)
oItem.SubItem(3) = CStr(oRs.Fields(34).Value)
End If
oRs.MoveText
Loop
oRs.Close
Else
End If
Set oRs = Nothing
comn.Close
Set comn = Nothing
怎么运行的时候 我按那个按钮没反应啊