Dim cn as New ADODB.Connectioncn.Open "Driver={SQL Server};Server=MyServerName; Database=myDatabaseName; Uid=myUsername; Pwd=myPassword;"