Public Sub DatasetErfassen()
        Dim objConnection As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0; Data" & _
          "Source=C:\VB_Datenbanken\Datenbank.mdb")
 
        Dim objDataAdapterErf As OleDb.OleDbDataAdapter
        Dim objDataSetErf As DataSet
        Dim objDataViewErf As DataView
 
        objDataViewErf = Nothing
        objDataSetErf = New DataSet()
        objConnection.Open()
        objDataAdapterErf = New OleDb.OleDbDataAdapter("SELECT * FROM" & _
          "t_Firmenname", objConnection)
        objDataAdapterErf.Fill(objDataSetErf, "t_Kunden")
        objDataViewErf = New DataView(objDataSetErf.Tables("t_Firmenname"))
 
        With Me
            frmErfassungsmaske.cboFirmenname.DataBindings.Add("Text", _
              objDataViewErf, "Vorname")
        End With
 
    End Sub