用wincc里的vbs对SQL进行读写操作

试了好几种方法 似乎根本没有连接上数据库
从网上找了个成功的例子试了下，还是不行，求助，为什么。已经在图形编辑器里创建了按钮，按钮动作时引用这个过程。
代码如下：Sub procedure1Dim objConnectionDim strConnectionStringDim lngValueDim strSQLDim objCommandDim NameName="222"strConnectionString = "Provider=MSDASQL;DSN=ZCZ;UID=;PWD=;" '字符串连接到数据库strSQL = "INSERT INTO ZCZ (search) VALUES ("& Name &");" 'sql语句将new插入zcZ的变量名的列Set objConnection = CreateObject("ADODB.Connection")'将objconnection定义成adodb的连接objConnection.ConnectionString = strConnectionString'将数据库连接字符串赋值给adodb.objconnectionobjConnection.Open'打开连接数据库Set objCommand = CreateObject("AdodB.Command")'将objcommand定义成adodb的命令With objCommand.ActiveConnecTion = objConnection.Commandtext = strSQLEnd WithobjCommand.Executeset objCommand = NothingoBjcoNnection.CloseSet objConnection = NothingEnd Sub