Dim adoConnection As ADODB.Connection Set adoConnection = New ADODB.Connection adoConnection.Open "Driver={SQL Server};Server=COSEDWASPROD;Database=Safety;UserID=login;Password=pswrd;Trusted_Connection=False;"
adoConnection.Open "Driver={SQL Server};Server=COSEDWASPROD;Database=Safety;User ID=Read;Password=pswrd;"