scusami non capisco bene cosa intendi cioè vuoi ricare il recordset?

a parte che io lo scriverei così:

Private Sub trova_Click()
set rscercaclienti = new recordset
rscercaclienti.Open "select * from clienti where nominativo =" & " " & """" & DataCombo1.Text & """"
Set Adodc1.Recordset = rscercaclienti

End Sub

ma ti da errore?

perchè non usi il DataEnv al posto dell'antico adodc?