代码是看以前帖子里的，我复制下来直接粘贴，只是改了里面的连接字符串，
可是，总是不执行，代码如下
Dim objconnection

Dim connstr

Dim strsql

connstr="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=JL;Data Source=HS\WINCC;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=BKPC;Use Encryption for Data=False;Tag with column collation when possible=False;"

Set objconnection=CreateObject("adodb.connection")

objconnection.ConnectionString=connstr

objconnection.open
MsgBox "Hello World!", 6, "MsgBox Example"

strsql="insert into JLTABLE values(4,'76.89');"
MsgBox "Hello World!", 6, "MsgBox Example"
objconnection.execute strsql
MsgBox "Hello World!", 6, "MsgBox Example"
objconnection.close
MsgBox "Hello World!", 6, "MsgBox Example"
Set objconnect=Nothing

MsgBox语句是看代码执行到了那里的