I am using the following code snippet courtesy of @Mashiane
B4X:
Dim strFld As String
Dim fType As String
Dim curFields As List
Dim cur As ResultSet
curFields.Initialize
cur = DB.ExecQuery("PRAGMA table_info ('" & tblName & "')")
Do While cur.NextRow
strFld =...