I hope someone can help me. I am trying to add a contact
name to a distribution list programmatically from Access.
I have been able to create the folders, contacts, and
distribution list successfully but cannot add the created
contacts to the created distribution list. Please checkout
the following code and determine if you can give me any
suggestions on this issue:

Private Sub CreateContacts()

Dim rstFolders As Recordset
Dim rstContacts As Recordset
Dim ol As New Outlook.Application
Dim olns As Outlook.NameSpace
Dim cf As Outlook.MAPIFolder
Dim c As Outlook.ContactItem
Dim Prop As Outlook.UserProperty
Dim lcFolder As String
Dim dl As Outlook.DistListItem
Dim lcName As String
Dim lcTempItem As Outlook.MailItem
Dim lcRecipient As Outlook.Recipient

Set olns = ol.GetNamespace("MAPI")
Set dl = ol.CreateItem(olDistributionListItem)
Set lcTempItem = ol.CreateItem(olMailItem)

'Scan the tblFolderName table and add the folders
under the members and
'Non-Members folders.
Set rstFolders = CurrentDb.OpenRecordset
("tblFolderName")
rstFolders.MoveFirst

Do While Not rstFolders.EOF
If rstFolders!member = True Then
Set cf = olns.Folders.Item("CSEE Folders")
cf.Folders.Item("Members").Folders.Add
(rstFolders!DL_Folder_Name)
lcFolder = cf.Folders.Item("Members")
lcFolder = rstFolders!DL_Folder_Name
Set cf = cf.Folders.Item
("Members").Folders.Item(lcFolder)
Else
Set cf = olns.Folders.Item("CSEE Folders")
cf.Folders.Item("Non-Members").Folders.Add
(rstFolders!DL_Folder_Name)
lcFolder = cf.Folders.Item("Non-Members")
lcFolder = rstFolders!DL_Folder_Name
Set cf = cf.Folders.Item("Non-
Members").Folders.Item(lcFolder)
End If

'Set Show As Outlook AddressBook to true
cf.Folders.Parent.ShowAsOutlookAB = True

'Add a Distribution List with this name
Set dl = cf.Items.Add(olDistributionListItem)
dl.DLName = rstFolders!DL_Folder_Name

'Save the Distribution List
dl.Save

'Add contacts from the table
Set rstContacts = CurrentDb.OpenRecordset
(rstFolders!table_name)
If Not rstContacts.EOF Then
rstContacts.MoveFirst

Do While Not rstContacts.EOF
'Create contacts and add information for
them
Set c = cf.Items.Add(olContactItem)
c.Suffix = Nz(rstContacts!Title, "")
c.LastName = Nz(rstContacts!last, "")
c.FirstName = Nz(rstContacts!first, "")
c.Title = Nz(rstContacts!bus_title, "")
c.CompanyName = Nz(rstContacts!school, "")
If Len(Nz(rstContacts!bus_email, "")) > 0
Then
c.Email1Address = Nz(rstContacts!
bus_email, "")
c.Email1AddressType = "Business"
Else
c.Email1Address = Nz(rstContacts!
home_email, "")
c.Email1AddressType = "Home"
End If

'Save Contact Info
c.Save

' **** I would like to add the contact to the distribution
list that I created here if
possible.

rstContacts.MoveNext

Loop
End If

rstFolders.MoveNext
Loop

End Sub