Ho risolto con:
codice:
If variabile = True Then
    Set RsToChoose = RsRicerca.Clone
Else
    Set RsToChoose = Rs.Clone
End If