Dim typRecordSet As ADODB.Recordset
    Set typRecordSet = New ADODB.Recordset
 
    typRecordSet.Fields.Append "ID", adChar, 50, adFldRowID
    typRecordSet.Fields.Append "Neues Feld1", adChar, 100, adFldMayBeNull
    typRecordSet.Fields.Append "Neues Feld2", adChar, 20, adFldMayBeNull
    typRecordSet.Fields.Append "Neues Feld3", adChar, 50, adFldMayBeNull
    typRecordSet.CursorType = adOpenKeyset
    typRecordSet.LockType = adLockOptimistic
    typRecordSet.Open
 
    ' Ab hier kan man das RSet nutzen
 
    typRecordSet.AddNew Array(0, 1, 2, 3), Array(1, "test", "123", "Hallo")
    typRecordSet.AddNew Array(0, 1, 2, 3), Array(2, "test", "123", "Hallo")
    typRecordSet.AddNew Array(0, 1, 2, 3), Array(3, "test", "123", "Hallo")
    typRecordSet.MoveFirst
 
    ' Nach der nutzung natürlich wieder aufräumen :)
 
    typRecordSet.Close
    Set typRecordSet = Nothing

Ohne Mampf, kein Kampf !