Dim rcd1 As New ADODB.Recordset
Dim rcd2 As New ADODB.Recordset
Dim rcd3 As New ADODB.Recordset

'Стандартное решение:
Dim rsArr() As ADODB.Recordset

Private Sub Form_Initialize()
   ReDim rsArr( 1  To  3 )
   Set rsArr( 1 ) = rcd1
   Set rsArr( 2 ) = rcd2
   Set rsArr( 3 ) = rcd2
End Sub

Sub a()
   Dim i As Long, n As Long
   For i =  1  To  3 
      if rsArr(i).State = Adstateopen then n = n + rsArr(i).RecordCount
   Next
End Sub

public rcd1 as new adodb.recordset
public rcd2 as new adodb.recordset
public rcd3 as new adodb.recordset
'..
'..
a = CallByName(Me, "rcd" & i, Vbget).RecordCount 
'..