我想用MSHFlexGrid控件在wincc画面上显示数据库里的数据，数据集能查到，但是加载不到MSHFlexGrid控件上，上次用的dbgrid控件也没有加载出数据，麻烦大家帮我看看
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim Con
Dim m

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

Set conn=CreateObject("ADODB.Connection")

conn.ConnectionString=Con

conn.CursorLocation=3

conn.Open

sSql="SELECT * FROM INDIV_INFO "

Set oRs=CreateObject("ADODB.Recordset")

Set oCom=CreateObject("ADODB.Command")


With oCom

oCom.ActiveConnection = conn

oCom.CommandText = sSql

End With

Set oRs=CreateObject("ADODB.Recordset")

Set oCom.ActiveConnection=conn

oCom.CommandType=1

oCom.CommandText=sSql

Set oRs=oCom.Execute

m=oRs.RecordCount

MsgBox m



Dim Adodc1,DBGrid1

Set Adodc1=hmiruntime.Screens("TABLE").ScreenItems("Adodc")


Adodc1.RecordSource=sSql


Adodc1.Refresh
MsgBox("2")
Set DBGrid1=hmiruntime.Screens("TABLE").ScreenItems("控件2")
MsgBox("3")
Set DBGrid1.DataSource = Adodc1.Recordset
MsgBox("4")
DBGrid1.Refresh