Dim dblPosition As Double
dblPosition = BindingContext(DataView1).Position
With DataSet11.Tables("test").Rows(dblPosition)
        .Item("Name") = txtName.Text
        .Item("Vorname") = txtVorname.Text
        .Item("Strasse") = txtStrasse.Text
        .Item("Ort/PLZ") = txtOrtPLZ.Text
End With
OleDbDataAdapter1.Update(DataSet11, "test")