还有这段代码有啥问题啊？在wincc中不能用（vb中没有问题）；我想通过adodc控件把数据在datagrid控件中显示出来啊现在根本没有反应！！代码如下：

Sub X6309X94AE1X0000X005C_X6309X94AE1X00001_OnClick(ByVal Item)

Dim Connstr

Dim Adodc1

Dim Datagrid1

Set Datagrid1=ScreenItems("控件1")

Set Adodc1=ScreenItems("控件2")

Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Persist Security Info=False"

adodc1.ConnectionString = connstr

adodc1.RecordSource = "Select * From bianliang"

Set DataGrid1.DataSource = Adodc1

Adodc1.Refresh

End Sub