Private collectRS as Collection
Private rsRecordset1 as ADODB.Recordset
Private rsRecordset2 as ADODB.Recordset
Private rsRecordset3 as ADODB.Recordset
 
Private Sub Form_Load()
Set collectRS = New Collection
    With colrsListen
        .Add rsRecordset1
        .Add rsRecordset2
        .Add rsRecordset3
    End With
Dim n as ADODB.Recordset
    For Each n In collectRS                                'Die von deinem Tipp 
    ' hinzugefügte Zeile
        Set n = New ADODB.Recordset
        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

?n.Locktype
2
?rsRecordset1.LockType
--> Error: Objekt oder With-Block-Variable nicht festgelgt.