1、各位技术大牛，我14年用WINCC6.2通过ODBC连接ACCESS数据库，读取及写入数据库操作。今年有一个类似的项目，但是WINCC是7.4的版本，现在出现一个问题是wincc不能把数据写入到ACCESS数据库内，读取数据可以，同样的脚本，同样的操作，但是现在就是实现不了。

2、已经设定ODBC数据源，驱动选择microsoft ACCESS Driver-选择系统DSN，已经正常设置。

3、区别是14年当时使用的WINCC6.2+XP系统，现在项目是WINCC7.4+WIN7 32位系统。

4、使用msgbox指令检查脚本执行的位置，问题出现在Set objConnection = CreateObject("ADODB.Connection")，往后就没有执行。

5、现在怀疑没有创建ADOBD的Connection对象，不知道怎么解决。

请各位技术大牛指导一下。

下面是测试脚本：

----------------------------

Dim objConnection

Dim strConnectionString

Dim lngValue

Dim strSQL

Dim objCommand

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

lngValue = HMIRuntime.Tags("Tag1").Read

strSQL = "INSERT INTO WINCC_DATA (TagValue) VALUES (" & lngValue & ");"  

msgbox（“AAAAAAAAAA”）'这条msgbox窗口可以正常显示

Set objConnection = CreateObject("ADODB.Connection")

msgbox（“BBBBBBBBB”）'这条msgbox窗口可以不能正常显示

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

---------------------------------------------------