Dim oRecordset_tmp as Recordset
 
    ' Die Eigenschaften des Recordset setzen.
    With oRecordset_tmp
        .Fields.Append "Vorname", adChar, 40, adFldUpdatable
        .Fields.Append "Nachname", adChar, 40, adFldUpdatable
        ' Schlüsselgruppen-Cursortyp verwenden, um ein Aktualisieren der
        ' Datensätze zu ermöglichen.
       .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open
   'End With