Sub sql_LV_einlesen()
        'liest eine SQLight Datenbank in die entsprechenden DataTables.
        'Wird aufgerufen von:
        ' - d86_NeuDB_Einlesen()
        ' - sql_LV_Oeffnen()
        Dim myConnection As New SQLiteConnection("Data Source=" & SQLDB & _
          ";Version=3")
        Dim myCommand As New SQLiteCommand
        'SQLight DB auslesen mit dem DataTable
        If Not oDT Is Nothing Then
            oDT.Clear() 'DataTable löschen
        End If
        myConnection.Open() 'Connection öffnen
        myCommand = New SQLiteCommand("SELECT * FROM Optionen", myConnection) _
          'Command festlegen
        myAdapter_o.SelectCommand = myCommand 'Command an Adapter übergeben
        myAdapter_o.Fill(oDT) 'DataTable füllen
        'verwendete Resourcen wieder freigeben
        myConnection.Dispose()
        'Datenbankverbindung beenden
        myConnection.Close()
 
    End Sub

Private Sub LV_Einstellungen_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        If SQLDB <> "" Then
            For i As Long = 0 To oDT.Rows.Count - 1
                Select Case oDT.Rows(i).Item(0)
                    Case Is = "LVInf"
                        TextBox1.Text = oDT.Rows(i).Item(1).ToString    ' 
                        ' LV-Information
                    Case Is = "PjInf"
                        TextBox2.Text = oDT.Rows(i).Item(1).ToString    ' 
                        ' Projektinformation
                    Case Is = "AG"
                        TextBox3.Text = oDT.Rows(i).Item(1).ToString    ' 
                        ' Auftraggeber
                    Case Is = "AN"
                        TextBox4.Text = oDT.Rows(i).Item(1).ToString    ' Bieter
 
                    Case Is = "REBBeg"
                        TextBox6.Text = oDT.Rows(i).Item(1).ToString    ' Blatt
                    Case Is = "REBSchritt"
                        TextBox7.Text = oDT.Rows(i).Item(1).ToString    ' 
                        ' Schrittweite
                End Select
            Next
        End If
 
    End Sub

        If SQLDB <> "" Then
            Try
 
                Dim myAdapter As New SQLite.SQLiteDataAdapter("SELECT * FROM" & _
                  "Optionen", _
                SQLDB)
                Dim cb As New SQLite.SQLiteCommandBuilder(myAdapter)
                Dim o_BindingSource As New BindingSource
                o_BindingSource.DataSource = oDT
                Dim Test As String = oDT.Rows(4).Item(1).ToString
                oDT.Rows(1).Item(1) = TextBox1.Text.ToString    ' LV-Information
                oDT.Rows(2).Item(1) = TextBox2.Text.ToString    ' 
                ' Projektinformation
                oDT.Rows(3).Item(1) = TextBox3.Text.ToString    ' Auftraggeber
                oDT.Rows(4).Item(1) = TextBox4.Text.ToString    ' Bieter
                oDT.Rows(7).Item(1) = TextBox6.Text.ToString    ' Blatt
                oDT.Rows(8).Item(1) = TextBox7.Text.ToString    ' Schrittweite
                oDT.AcceptChanges()
                o_BindingSource.EndEdit()
                myAdapter.Update(oDT)
                MsgBox("DB atuell")
            Catch ex As Exception
                MsgBox(ex.ToString())
                Stop
            End Try
        End If
        Me.Close()
    End Sub

Danke für die Hilfe

Gruß Christian