una domanda stupida,
hai controllato quanti record ti estrae nel recordset:

codice:
RS.Open "Select socio_n, nome, cognome from Clienti where nome = '" & cmpric.text & "'", DB, adOpenStatic, adLockOptimistic
????

aggiungici dopo l'apertura:

codice:
    msgbox RS.recordcount,,"Numero Record"