Try this:
Dim seleccionSQL as string="SELECT name FROM SQLITE_MASTER where type='table'"
Dim conexion As SQLite.SQLiteConnection
conexion = New SQLiteConnection _
("Data Source=" & strPathBD _
& ";UseUTF16Encoding=False;Synchronous=Normal; Version=3;New=False")
conexion.Open()
Dim da As IDbDataAdapter = New SQLiteDataAdapter
da.SelectCommand = New SQLiteCommand(seleccionSQL, conexion)
Dim ds as new DataSet
da.Fill(ds)
conexion.Close()
Then, use something like this to obtain every table name:
ds.tables(0).rows(0).Item(0).tostring
ds.tables(0).rows(1).Item(0).tostring
...and so on.
Opto ut valeas, puerule.