Grazie mille velocissimo. Nel frattempo dopo ore ero riuscito a risolvere così:

strSQLCount = "SELECT COUNT(*) as Totale " & strSQL.SubString(strSQL.IndexOf("FROM"),strSQL.ind exOf("ORDER")-strSQL.IndexOf("FROM"))

che dici è poco elegante?