Dim cSQL As String
    Set ADS_Connection = New ADODB.Connection
    Set ADS_RS = New ADODB.Recordset
 
    ADS_Connection.Provider = "ADsDSOObject"
    ADS_Connection.Open "Active Directory Provider"
 
    cSQL = "Select telephoneNumber, name from 'LDAP://BUEFA04' WHERE" & _
      "objectCategory='Person' and objectClass='user'"
    ADS_RS.Open cSQL, ADS_Connection, adOpenStatic, adLockOptimistic

ENZCOM Computer Trading
Jens Enzensperger