我用“深入浅出”中的ODBC例子（P211）测试，按上面写的创建Access和ODBC数据源，在全局VBS中建项目，编写程序。

Sub procedure1

Dim objConnection
Dim strConnectionString
Dim lngValue
Dim strSQL
Dim objCommand

strConnectionString="Provider=MSDASQL;DSN=SampleDSN;UID=;PWD=;"

lngValue=HMIRuntime.Tags("Tag1").Read
strSQL="INSERT INTO WINCC_DATA (TagValue) VALUES (" & lngValue & ");"
Set objConnection=CreateObject("ADODB.Connection")
objConnection.ConnectionString=strConnectionString

objConnection.Open

Set objCommand=CreateObject("ADODB.Command")
With objCommand
.ActiveConnection=objConnection
.CommandText=StrSQL
End With

objCommand.Execute
Set objCommand=Nothing

objConnection.Close
Set objConnection=Nothing

End Sub

可无法看出Access中有什么改变！请问还有哪里需要设置一下？

再有我看到书上在对象选项板里还有动态对象，可以直接打开ODBC数据库，请问这要如何添加？