With Kunden_add_edit
            .Kunden_tabelle = ds.Tables("Kunden")
            .Kunden_da = Kunden_da
            .Kunden_conn_para = conn_obj
            .ShowDialog()
End With

Dim loc_verbindung As New OleDbConnection
        loc_verbindung.ConnectionString = loc_kunden_conn_para.connectionstring
        Dim ins_sql As String = "Insert into Kunden (Vorname, Nachname," & _
          "Strasse, Hausnr, PLZ, Ort) Values (@Vorname, @Nachname, @Strasse," & _
          "@Hausnr, @PLZ, @Ort)"
 
        loc_kunden_da.InsertCommand = New OleDbCommand(ins_sql, loc_verbindung)
        With loc_kunden_da.InsertCommand.Parameters
            .AddWithValue("@Vorname", Me.TextBox1.Text)
            .AddWithValue("@Nachname", Me.TextBox2.Text)
            .AddWithValue("@Strasse", Me.TextBox3.Text)
            .AddWithValue("@Hausnr", Me.TextBox4.Text)
            .AddWithValue("@PLZ", Me.MaskedTextBox1.Text)
            .AddWithValue("@Ort", Me.TextBox5.Text)
        End With
 
        dim zeile As DataRow = loc_kunden_dt.NewRow()
        zeile("Vorname") = Me.TextBox1.Text
        zeile("Nachname") = Me.TextBox2.Text
        zeile("Strasse") = Me.TextBox3.Text
        zeile("Hausnr") = Me.TextBox4.Text
        zeile("PLZ") = Me.MaskedTextBox1.Text
        zeile("Ort") = Me.TextBox5.Text
        loc_kunden_dt.Rows.Add(zeile)
 
        loc_kunden_da.Update(loc_kunden_dt)

Dim x As DataTable = Kunden_add_edit.Kunden_tabelle.GetChanges( _
  DataRowState.Added)