Private Sub Command1_Click()
  Dim oConn As New ADODB.connection
  Dim RSTSchema As New ADODB.Recordset
 
  ' Connection-Objekt erstellen
  Set oConn = New ADODB.connection
  With oConn
    .Provider = "SQLOLEDB.1"
    .Properties("Data Source") = "MSSQL"
    .Properties("User ID") = "maTestuser"
    .Properties("Password") = "ma"
    .CursorLocation = adUseClient
    .Open
  End With