Public Function GetNameFromEmail(ByVal argEmailAddress As String) As String
Dim con As ADODB.Connection
Dim com As ADODB.Command
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
con.Provider = "ADSDSOObject"
con.Open
Set com = New ADODB.Command
Set com.ActiveConnection = con
com.CommandType = adCmdText
com.CommandText = "SELECT name FROM 'LDAP://DC=???,DC=???' WHERE objectCategory='user' and mail = '" & argEmailAddress & "'"
Set rs = com.Execute