Dim ctl As Object
 
        For Each ctl In Me.Controls
            ctl.DataBindings.Clear()
        Next

  Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles Me.Load
...
 
sql = "SELECT * FROM User"
 
        dgv = Me.dgvSuchen
        SelectData(sqlStr, dgv)
 
   End Sub 
 
    Private Sub SelectData(ByVal sqlStr As String, ByVal dgv As DataGridView)
 
        ds.Tables.Clear()
        dgv.Controls.Clear()
 
 
        ds = New DataSet
        bs = New BindingSource
        dt = New DataTable
 
        ds.Tables.Add(dt)
 
        da = New OleDbDataAdapter(sqlStr, strConnString)
        da.Fill(dt)
 
        Dim cb As New OleDbCommandBuilder(da)
        bs.DataSource = dt
 
        Me.dgv.DataSource = bs
 
    End Sub
 
 
Private Sub Lieferant()
          Dim sql2 = "SELECT * FROM tblLieferant"
 
          gdv = dgvHardware
          SelectData(sql2, dgv)
     End Sub
 
  Private Sub DataBindingLieferant()
        Dim ctl As Object
 
        For Each ctl In Me.Controls
            ctl.DataBindings.Clear()
        Next
 
        ClearAllBindings()
 
        ' #### hier kracht es ####
        txtLFirmenname.DataBindings.Add("Text", bs, "tblLieferanten.Firmenname")
 
    End Sub