'/*---------------------------------------------
' myServerAddress 主机地址
' myDataBase
数据库
' myUsername 用户名
' myPassword 密码
'-----------------------------------------------*/
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
