clear Local con As Adodb.Connection, rs As Adodb.Recordset con = CreateObject('Adodb.Connection') con.Provider = "ADsDSOObject" *con.Properties('User ID')="****" *con.Properties('Password')="****" con.Open("Active Directory Provider") strFrom ='LDAP://istd' *,User ID="****",Password="****" ******************************************** *rs = con.Execute([SELECT ... WHERE objectCategory = 'person*' ]) && not work *rs = con.Execute([SELECT ... WHERE objectCategory = person* ]) && no work *rs = con.Execute([SELECT ... WHERE objectCategory = * ]) rs = con.Execute([ SELECT objectCategory,sAMAccountName,initials, displayname,title,Department,physicaldeliveryofficename FROM ']+m.strFrom+[']+; [WHERE objectCategory ='person' ])&&error message as the last message *UPPER(name) like "% *? LIKE ?param1+'%' *[WHERE objectCategory = person*])&& error message as the last message *[WHERE objectCategory = 'person*'])&& empty * i try as *rs = con.Execute([ SELECT objectCategory,sAMAccountName,initials, displayname,title,Department,physicaldeliveryofficename FROM ']+m.strFrom+['])&&1000 records *Like 'person%'&& not works error message *[ WHERE objectCategory = 'person' and cn='*' ]) && 1000 records *and cn='*'&& 1000 records LOCAL loXML as MSXML.DOMDocument loXML = Createobject('MSXML.DOMDocument') rs.Save(m.loXML,1) XMLTOCURSOR(m.loXML.xml, 'crsResult') select cast(SamAccountName as c(30)) as SAMName,CAST(initials as c(10)) as init1 ,CAST(displayname as c(30)), * from crsResult ; into table mysss INDEX on init1 tag init1thanks