Italian B4J : numero di record della query

Log("Sql show :" & fraseSql)
       
        Dim rs As ResultSet = Main.SQLCon.ExecQuery2(fraseSql, Array())
'        SELECT * FROM `app_service` WHERE `flagclose` = 0 AND `idserv` = 2 AND `rifdoc` = '' ORDER BY idagente ASC
'        Log ("righe " & rs.??)
       
        Conta = 0
       
        Do While rs.NextRow

            Conta=Conta + 1
            LabelTV1.Text="Attendere ..." & Conta ' & "/" & (?? )
            LabelTV1.RequestFocus
            Sleep(0)

Sub ConnectDatabase
    '    MySQL Connection Attempt
    Try
  
        SQLCon.InitializeAsync("SQLCon" ,"com.mysql.jdbc.Driver", "jdbc:mysql://" & dbMySQL.dbhost & ":" & dbMySQL.dbport & "/" & dbMySQL.dbname & "?characterEncoding=utf8",dbMySQL.dbusername,dbMySQL.dbpassword)

    Catch
        ' handle Error, like
        Log("ERROR: " & LastException.Message)
    End Try

End Sub

 SELECT COUNT (*) FROM TableName