Si cosi':


Dim cn As ADODB.Connection
Dim rs, rs1 As ADODB.Recordset


non va bene? fino a poco fa funzionava!!!