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 这句时就卡住了，哪位大神给我看看，是哪个地方出错了

我在多年前做的报表项目都是使用MSHFGRID的，后来在一次论坛讨论中，我提出了使用OWC来做为表格控件的思路， 然后有机会的时候自己就测试了一下，做通了。

然后再到现在，新项目我一般喜欢用OWC SPREADSHEET。可以直接支持ADO接口，连recordset都不需要绑定。

而最大的优点是和EXCEL的无缝兼容，非常方便导出报表查询结果！