Private Sub Command1_Click()
Dim DBName As String
Dim ConTest As ADODB.Connection
Dim SQLProvider As String
Dim UserName As String
Dim PWD As String
Dim Server As String
Dim AnzahlUserAufDatenbank As Long
 
   UserName = "Benutzer"
   PWD = "Passwort"
   DBName = "Datenbank"
   Server = "Servername"
 
   SQLProvider = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" 
& UserName & ";Password=" & PWD & " ;Initial Catalog=" & DBName & ";Data 
Source=" & Server
 
 
 
   Set ConTest = New ADODB.Connection
   ConTest.ConnectionString = SQLProvider
   ConTest.Open
   MsgBox "Datenbank wurde geöffnet"
 
      Dim rsTEst As ADODB.Recordset
      Set rsTEst = New ADODB.Recordset
      Dim rsTEst2 As ADODB.Recordset
      Set rsTEst2 = New ADODB.Recordset
      Dim rsTEst3 As ADODB.Recordset
      Set rsTEst3 = New ADODB.Recordset
 
 
 
 
      With rsTEst
         .ActiveConnection = ConTest
         .CursorLocation = adUseServer
 
      End With
 
      rsTEst.Open "select * from LF", , , adLockOptimistic
      'rsTEst.Close
 
 
      With rsTEst2
         .ActiveConnection = ConTest
         .CursorLocation = adUseServer
 
      End With
 
      rsTEst2.Open "select * from BT", , , adLockOptimistic
      'rsTEst2.Close
 
 
 
 
      With rsTEst3
         .ActiveConnection = ConTest
         .CursorLocation = adUseServer
 
      End With
 
      rsTEst3.Open "exec sp_who 'alacarte'", , , adLockOptimistic
      AnzahlUserAufDatenbank = 0
      Do While rsTEst3.EOF = False
         AnzahlUserAufDatenbank = AnzahlUserAufDatenbank + 1
         rsTEst3.MoveNext
      Loop
      rsTEst3.Close
      MsgBox "Anzahl: " & AnzahlUserAufDatenbank
 
   ConTest.Close
   MsgBox "Datenbank wurde geschlossen. Es wurden 10 Datensätze geschrieben"
 
End Sub