有没有办法让MS Access获取当前的Active Directory用户？

Dim objConnection As ADODB.Connection
Dim objCommand As ADODB.Command
Dim objRecordset As ADODB.Recordset

Set objConnection = New ADODB.Connection
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCommand = New ADODB.Command
Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = "SELECT ADsPath FROM 'LDAP://DC=example,DC=com' WHERE objectCategory='user'"

Set objRecordset = objCommand.Execute

If Not objRecordset.EOF Then
    objRecordset.MoveFirst
    Do Until objRecordset.EOF
        Debug.Print objRecordset("ADsPath")
        objRecordset.MoveNext
    Loop
End If

objRecordset.Close
objConnection.Close