Provi così
codice:
Dim RsDest As ADODB.Recordset
Set RsDest = New ADODB.Recordset