Private collectRS as Collection
Private rsRecordset1, Recordset2, Recordset3 as ADODB.Recordset
 
Private Sub Form_Load()
Set collectRS = New Collection
    With colrsListen
        .Add rsRecordset1
        Set rsRecordset1 = New ADODB.Recordset
        .Add rsRecordset2
        Set rsRecordset2 = New ADODB.Recordset
        .Add rsRecordset3
        Set rsRecordset3 = New ADODB.Recordset
   End With
Dim n as ADODB.Recordset
    Set n = New ADODB.Recordset
    For Each n In collectRS
        Set n.ActiveConnection = VConn            ' VConn = Connection Objekt 
        ' das geöffnet ist
        With n
            .CursorLocation = adUseClient
            .CursorType = adOpenDynamic
            .LockType = adLockPessimistic
        End With
    Next n
    Set collectRS = Nothing
End Sub