nella dichiarazione non serve NEW

fai così:

Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset

...

set rs = new ADODB.Recordset
set rs1 = new ADODB.Recordset

funziona, ma non ti so spiegare perchè con Dim rs, rs1 As ADODB.Recordset non va