Android Question Pragma table_info SQLite error

Dim TBQuery As String = $"PRAGMA table_info(${TheTableName}) WHERE cid = FieldNumber"$

Private Sub ColumnExists(TableName As String, ColumnName As String) As Boolean
    Dim csr As Cursor = myDB.ExecQuery($"PRAGMA table_info(${TableName})"$)
    For i = 0 To csr.RowCount - 1
        csr.Position = i
        If csr.GetString("name") = ColumnName Then Return True
    Next
    Return False
End Sub

Sub FieldNameOrder(TheTableName As String , FieldNumber As Int ) As String
      
    Dim tbrs As ResultSet
    
    tbrs.IsInitialized
    
    Dim s As String
    
'    Dim TBQuery As String  = "PRAGMA table_info(" & TheTableName & ")"
    
    Dim TBQuery As String  = "PRAGMA table_info(" & TheTableName & ") WHERE cid = FieldNumber "

    tbrs = SQL1.ExecQuery(TBQuery)
    
    
    
'    cur = SQL1.ExecQuery("PRAGMA table_info(DBTableName);")


        
            If FieldNumber<0 Then FieldNumber = 0
        
    If FieldNumber> tbrs.ColumnCount Then FieldNumber = tbrs.ColumnCount
        
            '    Log(" Field Names No 2 are :    " & s)
        
    
    s = tbrs.GetString("name")
    
    
    Log(" Final now is     :    " & s)
    
    
    
    tbrs.Close
    
    Return s
    
End Sub

    Dim csr As Cursor = DB.ExecQuery($"PRAGMA table_info(${TableName})"$)
    For i = 0 To csr.RowCount - 1
        csr.position = i  ' i is the FieldNumber 
        Log($"Column #${i} name: ${csr.GetString("name")}"$)
    Next

Sub ColumnName (Table As String, Index As Int) As String
    Dim s As String = "Not found"
    Dim query As String  = $"PRAGMA table_info(${Table})"$
    Dim rs As ResultSet = SQL1.ExecQuery(query)
    Do While rs.NextRow
        If rs.GetInt("cid") = Index Then
            s = rs.GetString("name")
            Exit
        End If
    Loop
    rs.Close
    Return s
End Sub

Dim csr As Cursor = SQL1.ExecQuery($"PRAGMA table_info(${TheTableName})"$)
csr.Position = FieldNumber
s = csr.GetString("name")