Try
  conn.Open()
 
  Dim daArtikel As New OleDbDataAdapter("select * FROM TblArtikel WHERE [ID] =" & _
    "1", conn)
  Dim daNamen As New OleDbDataAdapter("select * FROM TblNamen WHERE [ID] = 1", _
  conn)
  Dim daNamenArtikel As New OleDbDataAdapter("select TOP 1 * FROM" & _
  "TblNamenArtikel", conn)
 
  Dim ds As New DataSet
  daArtikel.Fill(ds, "TblArtikel")
  daNamen.Fill(ds, "TblNamen")
  daNamenArtikel.Fill(ds, "TblNamenArtikel")
 
  'Person hinzufügen
  Dim row As DataRow = ds.Tables("TblNamen").NewRow
  row("Vorname") = RndLetters()
  row("Nachname") = RndLetters()
  row("Telefon") = RndValue()
  ds.Tables("TblNamen").Rows.Add(row)
 
  'Person in DB eintragen wenn nicht vorhanden
  Dim command As New OleDbCommand("select ID FROM TblNamen WHERE (([Vorname] =" & _
    "'" & _
        row("Vorname") & "') AND ([Nachname] = '" & row("Nachname") & "') AND (" & _
        "[Telefon] = '" & row("Telefon") & "'))", conn)
  Dim ID As Integer = command.ExecuteScalar()
 
  If ID = 0 Then
      'Neuer Datensatz
      Dim CBNamen As New OleDbCommandBuilder(daNamen)
      daNamen.Update(ds.Tables("TblNamen"))
 
      ID = command.ExecuteScalar()
  Else
      'Datensatz bereits vorhadnen -> Nur aktualisieren
 
  End If
  'MsgBox(ID)
 
  'Artikel zum Namen hinzufügen
  For i As Integer = 1 To 5
      Dim rowNA As DataRow = ds.Tables("TblNamenArtikel").NewRow
      rowNA.Item("TblNamenID") = ID
      rowNA.Item("TblArtikelID") = i
      ds.Tables("TblNamenArtikel").Rows.Add(rowNA)
  Next
 
  'Speichern
  Dim CBNamenArtikel As New OleDbCommandBuilder(daNamenArtikel)
  daNamenArtikel.Update(ds.Tables("TblNamenArtikel"))
 
        Catch ex As Exception
 
        Finally
  conn.Close()
        End Try