Sub X6309X94AE1X0000C_X6309X94AE1X0000X60C5_X6309X94AE1X0000X8F93_OnClick(ByVal Item)      
Dim database,server,uid,pwd
Dim strcn,cn
Dim is_sql
dim aa
dim bb
'定义内部变量和对象
database="abc"
server="DHCC-WY\WINCC"
uid="bilige"
pwd="123"
aa="aa"
bb="bb"
strcn="Provider=SQLOLEDB.1;DRIVER=SQL SERVER;SERVER="&_
SERVER &";DATABASE="& Database &";UID="& uid &";pwd="&pwd
'拼写访问数据库的字符串，包括驱动名称，数据库，访问权限等
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = strcn
cn.Open
is_sql="INSERT INTO abc(id,name) VALUES ('" & aa &"','"& bb &"')"
cn.execute is_sql
cn.close
set cn=nothing
End Sub

大家看完了，对的话说一下也行啊，我现在是没结果。不知道什么引起的