ho riscritto tutto sulla stessa riga come mi hai detto tu:

<%
Dim tot, Cnt, rs
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/public/database.mdb")
sql = "SELECT SUM (Cnt) FROM ( SELECT Count(SbaNumber) As Cnt FROM tab1 UNION SELECT Count(SBANumber) as Cnt FROM tab2 )"
tot = rs("Cnt")
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>
<%=tot%>

e mi da' il seguente errore:


ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

line 134

la linea 134 corrisponde a:

tot = rs("Cnt")

cosa puo' essere?