请工程师们帮帮忙帮我看下，我现在想往西门子自带的数据库里面写一个数据（wincc6.0，SQL2000）一直没有写进去，我是这样弄的，在SQL里面建了一个数据库名字为“report”，表的名字为“value”，字段名位“test”但是写不进去，是哪里弄错了，关于的访问数据库的用户名和密码我装的时候没有设，我就从库里面找了一个“sa”的用户，密码随便写的“123”，还有在界面里面要调用ADO这个控件吗？需要哪些设置啊。急死了。。
我在vb全局脚本里面写的以下代码，触发为周期2秒：


Dim objconnection
Dim strconnectionstring
Dim objcommand
Dim val1
Dim slrSQL
database="report"
server="NJBAINA\WINCC"
uid="sa"
pwd="123"

va1=(HMIRuntime.Tags("date")).Read
strCOnnectiOnString= "provider = SQLOLEDB.1; DRIVER=SQLSERVER;SERVER="&SERVER&";DATABASE="&DATABASE&";UID="&uid&";pwd="&pwd

slrSQL="insert into value(test) values ("&va1&")"
Set objconnection=CreateObject("ADODB.Connection")
objconnection.connectionstring=strconnectionstring

objconnection.Open

objconnection.Execute (slrSQL)
objconnection.Close