ADSI query string

  Set conn = CreateObject("ADODB.Connection")
  conn.Provider = "ADSDSOObject"
  conn.Open "ADs Provider"

DomainFQDN= kido.idv.tw
DomainContainer="DC=kido,DC=idv,DC=tw"
  query_str="(&(objectCategory=person)(objectClass=user)(&(sAMAccountName=*)(!(userAccountControl:1.2.840.113556.1.4.803:=2))))"
  ldapStr = ";" & query_str & ";adspath;subtree"
 Set rs = conn.Execute(ldapStr)

 Set objConn = CreateObject("ADODB.Connection")
 Set objRs = CreateObject("ADODB.Recordset")
 objConn.Provider = "ADsDSOObject"
 strConn = "Active Directory Provider"
 objConn.Open strConn
 strSql = "select mail from '" & DomainFQDN & "' where sAMAccountName='" & "kido" & "'"
 objRs.Open strSql, objConn, 1, 1