Access 2007 e VB6 - Connection e Recordset

[raffaeu]

In questo modo
if not rs.eof then 
        rsArray = rs.GetRows() 
        nr = UBound(rsArray, 2) + 1 
        Debug.Print("Numero records :" & nr)
end if