Sub OnClick(Byval Item)
Dim strcn
Dim cn

Set cn = CreateObject("ADODB.Connection")
strcn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=CC_TEST_08_05_21_15_03_52R;Data Source=.\WINCC"
cn.ConnectionString=strcn

cn.open
MsgBox ("nihao!")
End Sub

换了个写法，倒是连通了，但是还是不知道为什么原来的方法实现不了。郁闷......