[VB6] Problema recupero campo da tabella

[Elena85]

rs.Open "SELECT MAX(ID) FROM LOTTI_CERTIFICATI", "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=PROVA_ELENA;Data Source=ELENA-PC\SQLEXPRESS", adLockReadOnly
Dim nummax As Integer
nummax = rs.Fields("ID").Value

L'errore me lo segna a questa riga:

nummax = rs.Fields("ID").Value

"Impossibile trovare l'oggetto nell'insieme corrispondente al nome o al numero richiesto!"



GRAZIE!!