Dim myDV As New DataView
       Dim csTable As New DataTable("tabelle")
            csTable.Columns.Add(New DataColumn("Name", GetType(String)))
            csTable.Columns.Add(New DataColumn("Vorname", GetType(String)))
            csTable.Columns.Add(New DataColumn("Adresse", GetType(String)))
            csTable.Columns.Add(New DataColumn("Ort", GetType(String)))
            ....
            myDV.Table = csTable
 
            ComboBox1.DataSource = myDV
            ComboBox1.DisplayMember = "Name"
            ComboBox1.ValueMember = "ID"
 
            txtAdresse.DataBindings.Add("Text", myDV, "Adresse")
            txtName.DataBindings.Add("Text", myDV, "Name")
            txtOrt.DataBindings.Add("Text", myDV, "Ort")
            txtPLZ.DataBindings.Add("Text", myDV, "PLZ")