Public Sub ReadSQLite(ByVal SQLiteCommand As String)
    'SQLite deklarieren
    Dim connect As New SQLite.SQLiteConnection("Data" & _
      "Source=database_test.SQlite;")
    Dim command As SQLite.SQLiteCommand
    Dim myAdapter As New SQLite.SQLiteDataAdapter
 
    'Daten aus der Datenbank lesen
    myData.Clear() 'DataTable löschen
    connect.Open() 'Connection öffnen
    command = New SQLite.SQLiteCommand(SQLiteCommand, connect) 'Command 
    ' festlegen
    myAdapter.SelectCommand = command 'Command an Adapter übergeben
    myAdapter.Fill(myData) 'DataTable füllen
    dv = myData.DefaultView
    DataGridView1.DataSource = dv 'DataGridView mit Daten von DataTable füllen
    connect.Close() 'Schließen 'Connection schliesen
End Sub