Private Sub ListBox_Fill(ByVal sTableName As String)
  Dim Rs As Recordset
 
  With sevListBox1
    .Clear
 
    ' Tabelle in ListBox übertragen
    Set Rs = Db.OpenRecordset(sTableName)
    If Rs.RecordCount > 0 Then
      Do Until Rs.Eof
        .AddItem , Rs(0) & vbTab & Rs(1) & vbTab & Rs(2)
        Rs.MoveNext
      Loop
    End If
  End With
 
  ' Recordset schließen
  Rs.Close
  Set Rs = Nothing
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de