- 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
来源: http://www.phpxs.com/code/1008847/