[VB6] Non posso eseguire una query due volte di seguito

[dj-_-b spirit]

salve a tutti,
non riesco a eseguire, sul mio form, una ricerca due volte di seguito nonostante mi premuri di chiudere il recordset.
com'è possibile?
spero possiate aiutarmi

allego il codice e una foto del form

Public rscercaclienti As New ADODB.Recordset

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

Private Sub Command2_Click()
   rscercaclienti.Close
End Sub

Private Sub Command4_Click()
  If Command4.Caption = "OK" Then
   Unload Me
  Else
   Adodc1.Recordset.Update
   Unload Me
  End If
End Sub

Private Sub Command5_Click()
   Unload Me
End Sub

Private Sub Form_Load()
   rscercaclienti.ActiveConnection = cnn
   rscercaclienti.LockType = adLockOptimistic
   
   Command4.Caption = "OK"

End Sub