Sub form1_load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
   Handles MyBase.Load
        ' Testen, ob die aktuelle Datenbank existiert
        If IO.File.Exists(My.Application.Info.DirectoryPath & _
          "\database_test.SQlite") = True Then
            MsgBox("DB ok")
        End If
        DataGridView1.DataSource = myBindingSource
    End Sub
 
    'Daten aus DB holen und in DataGridView darstellen
    Dim myData As New DataTable
    Dim myBindingSource As New BindingSource
    Dim connectionString As String = "Data Source=database_test.SQlite;"
 
    Private Sub poi_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles info_poi.Click
        Dim myAdapter As New SQLite.SQLiteDataAdapter("SELECT * FROM poi", _
        connectionString)
        myData = New DataTable("poi")
        myAdapter.Fill(myData) '*******Hier kommt der Fehler*******
        myBindingSource.DataSource = myData
    End Sub
 
    'Daten in die DB schreiben
    Private Sub schreiben_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles poi_schreiben.Click
        Dim newdate As DateTime = Now
        Dim connect As New SQLite.SQLiteConnection(connectionString)
        Dim command As New SQLite.SQLiteCommand
        connect.Open()
        command = connect.CreateCommand
 
        command.CommandText = "INSERT INTO poi (zeit) VALUES ('" & newdate & _
          "')"

 
        command.CommandText = "INSERT INTO poi (zeit) VALUES ('" & Now & "')"

 
        command.CommandText = "INSERT INTO poi (zeit) VALUES ('" & Format( _
          newdate, "yyyy-mm-dd H:mm") & "')"

        command.ExecuteNonQuery() ' Die Query wird ausgeführt
        command.Dispose()
        connect.Close() 'Schließen
    End Sub