Set askConn = CreateObject("ADODB.Connection")
askConn.ConnectionString = "Provider=SQLOLEDB;Data Source=SERVER\INSTANCE NAME;Database=MyDat;User ID=USERNAME;Password=********;"
askConn.OpenSet Conn = CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=SQLOLEDB;Data Source=SERVER\INSTANCE NAME;Database=MyData;User ID=USERNAME;Password=********;"
Conn.Open