...
Private objDataTable As New DataTable
    Private WithEvents bm As BindingManagerBase
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles MyBase.Load
 
        Call OpenDB()
        objDataAdapter = New OleDbDataAdapter("SELECT * FROM Kunden", _
          objConnection)
        objDataAdapter.Fill(objDataTable)
        Call CloseDB()
 
        bm = Me.BindingContext(objDataTable)
 
        Dim Binding1 As New Binding("Text", objDataTable, "Kundennummer")
        txtKundennummer.DataBindings.Add(Binding1)
 
        Dim Binding2 As New Binding("Text", objDataTable, "Typ")
        cmbTyp.DataBindings.Add(Binding2)
 
        Dim Binding3 As New Binding("Text", objDataTable, "Erfasst")
        lblErfasst.DataBindings.Add(Binding3)
...