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