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
        Debug.Print("Sub Schreibe_Tabelle für Tabelle " & DT.TableName.ToString _
          & " Beginn " & Now.ToString)
        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 changedRecordsTable As DataTable = DT.GetChanges()
        Dim StartZeit As Date = System.DateTime.Now
        If Not changedRecordsTable Is Nothing Then
            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.GetChanges)
                myAdapter.ContinueUpdateOnError = True
                DT.AcceptChanges()
            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 If
        If Not changedRecordsTable Is Nothing Then
            If CInt(System.DateTime.Now.Subtract(StartZeit).TotalSeconds) = 0 _
              Then
                Debug.Print("Das Speichern der Tabelle " & DT.TableName & " mit" & _
                "" & changedRecordsTable.Rows.Count.ToString & "Zeilen dauerte" & _
                "" & CInt( _
                            System.DateTime.Now.Subtract( _
                            StartZeit).TotalMilliseconds) & "Millisekunden")
            Else
                Debug.Print("Das Speichern der Tabelle " & DT.TableName & " mit" & _
                  "" & changedRecordsTable.Rows.Count.ToString & "Zeilen" & _
                  "dauerte " & CInt( _
                            System.DateTime.Now.Subtract( _
                            StartZeit).TotalSeconds) & "Sekunden")
            End If
        Else
            Debug.Print("in der Tabelle " & Tabelle & " gab es nichts zu" & _
              "speichern. Benötigte Zeit zum nichtstun = " & CInt( _
        System.DateTime.Now.Subtract(StartZeit).TotalMilliseconds) & _
        "Millisekunden")
        End If
    End Sub

Sub Schreibe_Tabelle für Tabelle LV Beginn 02.12.2013 11:19:02
in der Tabelle LV gab es nichts zu speichern. Benötigte Zeit zum nichtstun = _
  0Millisekunden
Sub Schreibe_Tabelle für Tabelle Massen_VA Beginn 02.12.2013 11:19:02
in der Tabelle Massen_VA gab es nichts zu speichern. Benötigte Zeit zum _
  nichtstun = 0Millisekunden
Sub Schreibe_Tabelle für Tabelle Massen_RM Beginn 02.12.2013 11:19:02
in der Tabelle Massen_RM gab es nichts zu speichern. Benötigte Zeit zum _
  nichtstun = 0Millisekunden
Sub Schreibe_Tabelle für Tabelle Massen_AA Beginn 02.12.2013 11:19:02
Das Speichern der Tabelle Massen_AA mit 52Zeilen dauerte 4Sekunden
Sub Schreibe_Tabelle für Tabelle PlanMass Beginn 02.12.2013 11:19:06
Das Speichern der Tabelle PlanMass mit 52Zeilen dauerte 5Sekunden
Sub Schreibe_Tabelle für Tabelle Optionen Beginn 02.12.2013 11:19:10
Eine Ausnahme (erste Chance) des Typs "System.InvalidOperationException" ist in _
  System.Data.dll aufgetreten.
Das Speichern der Tabelle Optionen mit 1Zeilen dauerte 127Millisekunden
Sub Schreibe_Tabelle für Tabelle Variable Beginn 02.12.2013 11:19:10
in der Tabelle Variable gab es nichts zu speichern. Benötigte Zeit zum _
  nichtstun = 0Millisekunden
Sub Schreibe_Tabelle für Tabelle REB Beginn 02.12.2013 11:19:10
Das Speichern der Tabelle REB mit 2Zeilen dauerte 164Millisekunden
Sub Schreibe_Tabelle für Tabelle OZNotes Beginn 02.12.2013 11:19:11
in der Tabelle OZNotes gab es nichts zu speichern. Benötigte Zeit zum nichtstun _
  = 0Millisekunden
Sub Schreibe_Tabelle für Tabelle MNotes Beginn 02.12.2013 11:19:11
in der Tabelle MNotes gab es nichts zu speichern. Benötigte Zeit zum nichtstun _
  = 0Millisekunden

Danke für die Hilfe

Gruß Christian