Private Sub Lade_ComboBox(ByVal c As ComboBox, ByVal Tabelle As String, _
      ByVal dbpfad As String, ByVal feld As String)
        Dim ds As New DataSet
        Dim conn As New OleDb.OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpfad)
        Dim sql As String = "SELECT * FROM " & Tabelle
        Dim da As New OleDb.OleDbDataAdapter(sql, conn)
        da.Fill(ds, "ComboData")
        c.DataSource = ds.Tables("ComboData")
        c.DisplayMember = feld
    End Sub

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov