Dim daMain As New OleDbDataAdapter(selStrMain, conn)
Dim cb As New OleDb.OleDbCommandBuilder(daMain)
  If MsgBox("Soll dieser Datensatz wirklich gelöscht werden?", _
    MsgBoxStyle.YesNo, "") = MsgBoxResult.Yes Then
    dsMain.Tables("Main").Rows(j).Delete() '<-- Löscht die Zeile an der Stelle j 
    daMain.Update(dsMain, "Main")  <-- HIER TRITT DER FEHLER AUF!!!      
    j = dsMain.Tables("Main").Rows.Count - 1 '<-- Zählt die Anzahl der Zeilen ( 
    ' Datensätze)
  Else
    MsgBox("Nichts passiert...")
  End If
showDetail() '<-- Aktualisiert die Ansicht (benötigt j!) 
ShowLBView() '<-- Aktualisiert eine Listbox (benötigt kein j!)
ShowMain() '<-- Aktualisiert ein DataGridView (für Testzwecke)

Private Sub showDetail()
  If IsDBNull(dsMain.Tables("Main").Rows(j).Item("Bezeichnung")) Then
    tbBezeichnung.Text = ""
  Else
    tbBezeichnung.Text = dsMain.Tables("Main").Rows(j).Item("Bezeichnung")
  End If
 
  If IsDBNull(dsMain.Tables("Main").Rows(j).Item("Version")) Then
    tbVersion.Text = ""
  Else
    tbVersion.Text = dsMain.Tables("Main").Rows(j).Item("Version")
  End If
 
...
 
End Sub

Private Sub ShowMain()
  dgvMain.DataSource = dsMain
  dgvMain.DataMember = "Main"
End Sub

Private Sub ShowLBView()
  lbLizenz.Items.Clear()
    For i As Integer = 0 To dsLizenz.Tables("Lizenz").Rows.Count - 1
      If dsLizenz.Tables("Lizenz").Rows(i).Item("SID") = SID Then
        lbLizenz.Items.Add(dsLizenz.Tables("Lizenz").Rows(i).Item("Schluessel"))
      End If
    Next
End Sub