Dim dt_daten_diverses As DataTable
Dim da_daten_diverses As MySqlDataAdapter
Dim cb_daten_diverses As MySqlCommandBuilder
Dim bs_daten_diverses As New BindingSource
 
dt_daten_diverses = New DataTable
da_daten_diverses = New MySqlDataAdapter("SELECT * FROM daten_diverses WHERE" & _
  "corr_KundenNr = '" & Kundennummer & "'", conn)
da_daten_diverses.Fill(dt_daten_diverses)
cb_daten_diverses = New MySqlCommandBuilder(da_daten_diverses)
bs_daten_diverses.DataSource = dt_daten_diverses
 
KNDAT.DataBindings.Add(New Binding("Text", bs_daten_diverses, "KNDAT"))