Had to put this together quickly, seems to work ok, just thought I'd share...
B4X:
Sub GetSqliteVersion( db As SQL ) As String
Try
Return db.ExecQuerySingleResult( "SELECT sqlite_version();" )
Catch
Log(LastException)
Return ""
End Try
End Sub