Maybe you could try the SQLite
explain statement.
The
explain statement doesn't execute the query, instead SQLite returns the sequence of virtual machine instructions it would have used to execute such a command.
The code below returns
True if the query passed as parameter is supposed to return data, and
False otherwise.
Sub QueryReturnsData (strSQL as String) as Boolean
Dim rs As ResultSet
rs=SQL1.ExecQuery($"explain ${strQuery}"$)
Do While rs.NextRow
If rs.GetString("opcode")="ResultRow" Then
Return True
End If
Loop
Return False
End sub