DistList in Unterordner

Hallo,
per VBA-Code möchte ich aus einer Access-Datenbank Verteilerlisten übernehmen.
Das gelingt auch mit nachfolgendem Code, leider nur in den Hauptordner \’Kontakte\’.
Ich möchte dies jedoch auch in einen Unterordner ausführen können.
Die betreffenden Code-Zeile habe ich weiter unten markiert.

Sub Verteilerlisten_übernehmen()
\’ Set up DAO Objects.
Dim oDataBase As DAO.Database
Dim rst As DAO.Recordset
Datenbank = \”F:\\Datenbank\\Adressen.mdb\”
Tabelle = \”Gruppen\”
Set oDataBase = OpenDatabase(Datenbank)
Set rst = oDataBase.OpenRecordset(Tabelle)

\’ Set up Outlook Objects.
Dim ol As New Outlook.Application
Dim olns As Outlook.NameSpace
Dim cf As Outlook.MAPIFolder
Dim mynewFolder As Outlook.MAPIFolder
Dim myDistList As Outlook.DistListItem
Dim Prop As Outlook.UserProperty

Set olns = ol.GetNamespace(\”MAPI\”)
Set cf = olns.GetDefaultFolder(olFolderContacts)
Unterordner = \”Kontakte Lahntal\”
Set mynewFolder = cf.Folders(Unterordner)
AnzGrupp = 0
With rst
.MoveFirst
\’ Loop through the Microsoft Access records.
Do While Not .EOF
\’ Create a new DistList item.

h i e r i s t d i e P r o b l e m – Z e i l e :

\’Set myDistList = ol.CreateItem(olDistributionListItem) \’im Hauptordner
die obige Zeile funktioniert für den Hauptordner

die untere Zeile soll für den Unterordner sein, bekommt aber eine Fehlermeldung
(Typen unverträglich)
Set myDistList = mynewFolder.Items.Add \’im Unterordner
w i e s i e h t d i e s e Z e i l e r i c h t i g a u s ?

\’Name der Verteilerliste übernehmen
If ![Gruppenname] \”\” Then myDistList.DLName = ![Gruppenname]
myDistList.Save
\’zum nächsten Datensatz von Access
AnzGrupp = AnzGrupp + 1
.MoveNext
Loop
End With
MsgBox \”… es wurden \” & AnzGrupp & \” Verteilergruppen von Access nach Outlook übertragen\” _
nach Outlook übertragen\” , , \”Übernahme Daten\”
End Sub

Freue mich über jede Hilfe.
Gruß Wolfgang