试试这个，我以前的连接，应该可以
Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y)
Dim database,server,uid,pwd
Dim strcn,cn
Dim is_SQL
Strcn="Provider=SQLOLEDB.1;DRIVER=SQL SERVER;SERVER=ASPRING\WINCC;DATABASE=test;UID=sa;PWD=zhengzhuangzhou"
Set cn=CreateObject("ADODB.Connection")
Cn.Connectionstring=strcn
Cn.open
Is_sql="insert into mytable(shuju1,shuju2) values(1.2,1.3)"
Cn.Execute is_SQL
CN.CLOSE
End Sub