Devi approfondire il concetto di "recordset" ...

L'oggetto rs (che hai ottenuto con la rs.Open) contiene piu' righe che puoi esaminare singolarmente con il suo metodo MoveNext. Usa questo metodo per accedere a tutti gli eventuali record trovati.

Cosi' come hai scritto il programma, ti limiti ad esaminare solamente la prima riga del recordset ... usa inoltre il metodo Count del recordset per determinare il numero di righe ottenute.