Grazie!
ma scusa l'ignoranza... io lancio la query con

dbRS.Open StrSQL, ConnStr

dove StrSQL contiene la query
e ConnStr la stronga di connessione al DB

Ho provato con
IDVEndite=dbRS.Open StrSQL, ConnStr
oppure con
IDVendite=dbRS.Open(StrSQL, ConnStr)
ma VB6 mi da errore.
Come si fa per ricevere il valore dalla select?
Mi fai un esempio?

Grazie ancora