With cnn .CursorLocation = adUseClient .Open "Provider=SQLOLEDB;Data Source=SIS;" _ & "Initial Catalog=P1l;Integrated Security=SSPI;" End With