清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

Dim conn
Set conn = CreateObject("ADODB.Connection")
conn.connectionString = "Provider = SQLOLEDB;Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;"
conn.Open
conn.Close
Set conn = Nothing