Public Sub Schreibe_Tabelle(ByVal DB As String, ByVal Tabelle As String, ByRef _
   DT As DataTable)
        'führt ein Update der SQLight Datenbank auf ein DataTable aus
        Dim Conn As New SQLiteConnection("Data Source=" & DB & ";Version=3")
        'SQLite DB auslesen 
        Dim ds As New DataSet()
        Dim Cmd As New SQLiteCommand
        Dim myAdapter As New SQLiteDataAdapter
        myAdapter.SelectCommand = Cmd
        'Dim Test As String = DT.Rows.Count.ToString
        Try
            SetVorgang("schreibe Tabelle " & DT.TableName.ToString)     ' 
            ' Information im Label anzeigen
            Conn.Open() 'Connection öffnen
            Cmd.Connection = Conn
            ' Adapter-Objekt vorbereiten
            Cmd.CommandText = "SELECT * FROM  '" & Tabelle & "'"
            Dim cb As New SQLite.SQLiteCommandBuilder(myAdapter)
            myAdapter.Fill(ds, Tabelle)                         ' Datenbank in 
            ' DataSet lesen 
            myAdapter.Update(DT)                                ' DB mit 
            ' DataTable Updaten
            DT.Clear()
            myAdapter.Fill(DT)
        Catch
            Try
                If Tabelle = "Optionen" Then
                    Call UpdateOptionen(Hauptform.LV_DB, "Optionen", _
                      Hauptform.oDT)         ' Rückschreiben der Tabelle 
                    ' Optionen
                End If
            Catch ex As Exception
                MsgBox("Es kam zu einem Fehler beim  auslesen der Tabelle " & _
                  Tabelle & vbCrLf _
                       & Err.Description, MsgBoxStyle.Information, "BauMass" & _
                       "Fehler")
            End Try
        Finally
            'verwendete Resourcen wieder freigeben
            Conn.Dispose()
            'Datenbankverbindung beenden
            Conn.Close()
        End Try
    End Sub

Danke für die Hilfe

Gruß Christian