Private Sub LoadListe(lstListe As MSFORMS.Listbox)
  Dim SQL1 As String
  Dim SQL2 As String
  Dim r As RecordSet
  Dim A As Long
 
  Set DB = DBEngine.OpenDatabase("C:Eigene DateienDB1.MDB",_
    False, False)
  SQL2 = "SELECT Count(*) As Anz From Test"
  Set r = DB.OpenRecordset(SQL2, dbOpenSnapShot)
  SQL1 = "SELECT Name,Vorname,Geburtsdatum FROM Test " & _
    "ORDER BY Name"
  Set Rs = DBOpenRecordset(SQL1, dbOpenDynaset)
  If Rs.EOF Then Exit Sub
 
  <font color=green>' ACHTUNG in der Kürze liegt die Würze!</font>
  A = r!Anz
  lstListe.Column = Rs.GetRows(A)
  DB.Close
End Sub