Sub OnClick(Byval Item)
Dim connection
Dim database
Dim server
Dim provider
Dim uid
Dim pwd
Dim driver
Dim conn

provider = "Provider = SQLOLEDB.1"
database = "CC_TEST_08_05_21_15_03_52R"
server = ".\WINCC"
driver = "SQL SERVER"
uid = "SMARTFOX\Administrator"
pwd = ""
connection = provider + driver + server + database + uid + pwd
Set conn = CreateObject ("ADODB.Connection")
conn.ConnectionString = connection
conn.open

End Sub

又写了个更简单的打开数据库，好像也是不行，不知道问题出在什么地方了！谢谢谢有经验的朋友分析一下啊！