Private DB As DataBase
Private Rs As RecordSet
 
Private Sub LoadMyList(Byref oList As ListBox, _
                                            ByVal sDBName As String, _
                                            ByVal sTBName As String, _
                                            ByVal nColums As Byte, _
                                            ByVal sColWidths As String)
      Dim nDS As Long    
 
      On Error Goto DBFehler
      Set DB = DBEngine.OpenDataBase(sDBName, False, False)
      Set Rs = DB.OpenRecordSet(sTBName, dbOpenDynaset)
 
      On Error Resume Next
       If Rs.EOF Then Exit Sub
 
       nDS = DB.TableDefs(sTBName).Properties("Recordcount").Value
 
       'Listbox initialisieren
       With oList
             .ColumnCount = nColumns
             .ColumnWidth = sColWidths
             .Column = Rs.GetRows(nDS)
       End With  
 
      Exit Sub
DBFehler:
       MsgBox "Die Datenbank konntenicht geöffnet werden", vbInformation, _
         "Fehler"
End Sub