Dim myData As New DataSet
    Dim myAdapter As New SQLite.SQLiteDataAdapter
    Dim connect As New SQLite.SQLiteConnection("Data" & _
      "Source=database_test.SQlite;")
 
    Public Function ReadSQLite(ByRef SQLiteCommand As String) As DataSet
        myAdapter = New SQLite.SQLiteDataAdapter(SQLiteCommand, connect)
        myAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
        myData = New DataSet
        myAdapter.Fill(myData, "sensorwerte") 'DataTable füllen
        DataGridView1.DataSource = myData 'DataGridView mit Daten von DataTable 
        ' füllen
        Return myData
    End Function
 
    'Daten aus DB holen und in DataGridView darstellen
    Private Sub Sensorwerte_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles info_Sensorwerte.Click
        DataGridView1.DataSource = Nothing
        myData = ReadSQLite("SELECT * FROM sensorwerte")
        DataGridView1.DataSource = myData
        DataGridView1.DataMember = "sensorwerte"
    End Sub
 
    'änderungen in die DB speichern
    Private Sub speichern_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Info_speichern.Click
        Dim myData2 As DataSet = myData.GetChanges
        If myData2 IsNot Nothing Then
            Try
                Dim cb As New SQLite.SQLiteCommandBuilder(myAdapter)
                myAdapter.Update(myData, "sensorwerte")
                myData.Merge(myData2)
                MsgBox("DB atuell")
            Catch ex As Exception
                myData.RejectChanges()
                MsgBox("fehler")
            End Try
        End If
    End Sub