Public Sub Lese_Tabelle(ByVal DB As String, ByVal Tabelle As String, ByRef DT _
  As DataTable)
        'liest eine SQLight Datenbank in ein DataTable.
        Dim Conn As New SQLiteConnection("Data Source=" & DB & ";Version=3")
        'SQLite DB auslesen 
        Dim ds As New DataSet()
        Dim Cmd As New SQLiteCommand
        Dim myAdapter As New SQLiteDataAdapter
        myAdapter.SelectCommand = Cmd
        Try
            Conn.Open() 'Connection öffnen
            Cmd.Connection = Conn
            ' Adapter-Objekt vorbereiten
            Cmd.CommandText = "SELECT * FROM  '" & Tabelle & "'"
            myAdapter.Fill(ds, Tabelle)
            DT = ds.Tables(Tabelle)
            'verwendete Resourcen wieder freigeben
            Conn.Dispose()
        Catch
            'verwendete Resourcen wieder freigeben
            Conn.Dispose()
            MsgBox("Es kam zu einem Fehler beim  auslesen der Tabelle " & _
              Tabelle & vbCrLf _
                    & Err.Description, MsgBoxStyle.Information, "BauMass" & _
                    "Fehler")
        Finally
            'Datenbankverbindung beenden
            Conn.Close()
        End Try
    End Sub

Danke für die Hilfe

Gruß Christian