Private Sub Form_Load()
 
Dim DB As ADODB.Connection
   Dim Rec As ADODB.Recordset
'''
Dim Cmd As ADODB.Command
 
 
   Set DB = New ADODB.Connection
   With DB
      .ConnectionString = "Provider=SQLOLEDB.1;Integrated " & _
         "Security=SSPI;Persist Security Info=False;" & _
         "Initial Catalog=aida32;Data Source=SQL01;Network " & _
         "Library=dbnmpntw"
      .CursorLocation = adUseClient
      .Open
   End With
'''
   Set Cmd = New ADODB.Command
   With Cmd
      Set .ActiveConnection = DB
      .CommandType = adCmdStoredProc
      .CommandText = "sp_who4"
   End With
 
 
   Set Rec = New ADODB.Recordset
   With Rec
''' Set .ActiveConnection = DB
      Set .Source = Cmd
      .CursorLocation = adUseClient
      .CursorType = adOpenStatic
      .LockType = adLockOptimistic
      .Open
   End With
 
 
    While Not Rec Is Nothing ' solange Rec ein "RecordSet" ist (nicht NOTHING)
        With Rec
 
            Do While Not .EOF ' Solange DS im ReecordSet vorhanden sind 'HIER _
              KOMMT DER FEHLER
                List1.AddItem .Fields(0).Value
                .MoveNext
            Loop
        End With
        Set Rec = Rec.NextRecordset ' hole nächstes RecordSet
    Wend
   Rec.Close
   DB.Close
End Sub