access2000, vba, outlook, distlist

this is take from MSDN
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/exchserv/html/directry_231h.asp

' The following code locates a mailbox in the Microsoft Exchange
' directory whose City (Location) property matches the search
' criteria. The ADSI LDAP name for the City property is 'l.'

Dim objADOconn          ' ADO connection object
Dim strADOQueryString  ' ADO query string
Dim objRS              ' recordset object
Dim strCriteria        ' value used to search the directory tree
strCriteria = "Bellevue"
Set objADOconn = CreateObject("ADODB.Connection")
objADOconn.Provider = "ADSDSOObject"
objADOconn.Open "ADs Provider"
strADOQueryString = "<LDAP://" + strServer + ">;(&(objectClass=organizationalPerson)(l=" + strCriteria + "));cn,adspath;subtree"
Set objRS = objADOconn.Execute(strADOQueryString)
If Not objRS.EOF Then
  While Not objRS.EOF
    objNewDL.Add objRS.Fields(1).Value
    Response.Write objRS.Fields(0) + " added :)<BR>"
    objRS.MoveNext
  Wend
Else
  Response.Write "No mailboxes were added to the DL :(<BR>"
End If
objRS.Close