Sub speichernO()
        'speichert das DataSet in der Tabelle zurück
        Dim connectionString As String = "Data Source=" & SQLDB & ";"
 
        Try
            Dim myAdapter As New SQLite.SQLiteDataAdapter("SELECT * FROM" & _
              "Optionen", _
            connectionString)
            Dim cb As New SQLite.SQLiteCommandBuilder(myAdapter)
            myAdapter.Update(bamDS.Tables("Optionen"))
            MsgBox("DB Optionen atuell")
        Catch ex As Exception
            MsgBox(ex.ToString())
            Clipboard.SetDataObject(ex.ToString, True)
        End Try
        Exit Sub
    End Sub

Danke für die Hilfe

Gruß Christian