Set oConn = New ADODB.Connection
With oConn
  .Provider = "SQLNCLI11"
 
  ' Servername, Username und Kennwort für die Anmeldung am Server
  .Properties("Data Source") = "localhost"
  .Properties("User ID") = "benutzername"
  .Properties("Password") = "kennwort"
 
  .Properties("Connect Timeout") = 15
  .Properties("Initial Catalog") = "Datenbankname"
  .Open
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de