Private Sub Lade_combobox(ByVal Tabelle As String, ByVal pfad As String, _
      ByVal feld As String)
        Dim rs As ADODB.Recordset
        Dim sql As String
        Dim adodb As ADODB.Connection
        adodb = New ADODB.Connection
        adodb.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpfad)
 
        sql = "SELECT * FROM " & Tabelle
        rs = adodb.Execute(sql)
 
        If rs.RecordCount > 0 Then
            Do While Not rs.EOF = False And Not rs.BOF = False
                Combo_Fehlernr.Items.Add(rs.Fields(feld).Value)
                rs.MoveNext()
            Loop
        End If
 
    End Sub