Sub OnClick(Byval Item)
Dim ConString,objConnection,objRecordset,strSQL
'ConString="Provider = SQLOLEDB.1 ;DRIVER=SQLERVER;SERVER=ES021\WINCC;DATABASE=master;UID=;PWD="

ConString="Driver={SQL Server};Server=USER-20150401YP\SQL2005;uid=sa;pwd=sa123;database=yejian"

Set objConnection = CreateObject("ADODB.Connection")

objConnection.ConnectionString=ConString

objConnection.Open

strSQL=" select * from INDIV_INFO "

Set objRecordset = objConnection.Execute(strSQL)

Dim Grid

Set Grid=ScreenItems("控件1")
MsgBox("3")
Set Grid.DataSource = objRecordset.Recordset
MsgBox("4")
Grid.Refresh

Set objRecordset = Nothing

objConnection.Close

Set objConnection = Nothing

这是我照着网上的例子写的读取数据库的脚本，用dbgrid控件在wincc一个画面中显示从数据库查找到的数据，但是执行到Set Grid.DataSource = objRecordset.Recordset 这句时就卡住了，哪位大神给我看看，是哪个地方出错了