Public Function SQLiteTableList(ByVal sqliteconn As SQLiteConnection) As _
   DataTable
        Dim ds As DataSet
        Dim da As SQLiteDataAdapter
        Dim dt As DataTable
        Dim cmd As String
        cmd = "SELECT * FROM sqlite_master WHERE type ='table' ORDER BY name"
 
        ds = New DataSet
        da = New SQLiteDataAdapter(cmd, sqliteconn)
        If sqliteconn.State = ConnectionState.Closed Then
            sqliteconn.Open()
        End If
        da.Fill(ds, "MasterSchema")
        sqliteconn.Close()
        dt = ds.Tables(0)
        Return dt
    End Function