Dim myData As New DataTable
Dim myBindingSource As New BindingSource
dim connectionString as string = "Data Source=database_test.SQlite;"
 
....
'in Form_Load
DataGridView1.DataSource = myBindingSource
....
 
'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
	Dim myAdapter As New SQLite.SQLiteDataAdapter("SELECT * FROM sensorwerte", _
connectionstring)
	myData = New DataTable("sensorwerte")
	myAdapter.Fill(myData) 'DataTable füllen
	myBindingSource.DataSource = myData
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
	Try
		Dim myAdapter As New SQLite.SQLiteDataAdapter("SELECT * FROM sensorwerte", _
  connectionstring)
		Dim cb As New SQLite.SQLiteCommandBuilder(myAdapter)
		myBindingSource.EndEdit()
		myAdapter.Update(myData, "sensorwerte")
		MsgBox("DB atuell")
	Catch ex As Exception
		MsgBox(ex.ToString() )
	End Try
End Sub