Autenticação no AD

Prezados,

Estou tentando fazer os usuários da minha intranet se conectarem no AD, porém quando tento acessar com senha e login o mesmo está me exibindo a seguinte mensagem de erro na linha 143:

Microsoft VBScript runtime error '800a000d'

/Type mismatch: '[object]'

login_restrito_teste.asp, line 56

Segue o código para me ajudarem

<%

Dim UserName
Dim Password

UserName = ""
Password = ""
Domain = "1.4.0.1"

UserName = request.form("UserName")
Password = request.form("Password")

 function AuthenticateUser(UserName, Password, Domain)
 dim strUser
 ' assume failure
 AuthenticateUser = false

 strUser = UserName
 strPassword = Password

 strQuery = "SELECT cn FROM 'LDAP://" & Domain & "' WHERE objectClass='*' "

 set oConn = server.CreateObject("ADODB.Connection")
 oConn.Provider = "ADsDSOOBJECT"
 oConn.Properties("User ID") = strUser
 oConn.Properties("Password") = strPassword
 oConn.Properties("Encrypt Password") = true
 oConn.open "DS Query", strUser, strPassword

 set cmd = server.CreateObject("ADODB.Command")
 set cmd.ActiveConnection = oConn
 cmd.CommandText = strQuery
 on error resume next
 set oRS = cmd.Execute
 if oRS.bof or oRS.eof then
 AuthenticateUser = false
 else
 AuthenticateUser = true
 end if

 set oRS = nothing
 set oConn = nothing
 end function

 result = AuthenticateUser(UserName, Password, Domain)
 if result then
 set rsLog=server.createobject("ADODB.Recordset")
 sqlstr = "Select * from users where login='"&UserName&"' AND des_senha='"&Password&"'"
 rsLog.open sqlstr, conexao,3,3
 if rsLog.EOF then

 response.cookies("css")("GRUPO") = rsLog("grupo")
 response.cookies("css")("CODUSER") = rsLog("cod_usuario")
 session("logado") = "S"

 If request("vemail") = "S" then
 response.cookies("css")("cod_idm") = 1
 response.redirect request("redir")

 Else

 if rsLog("grupo") = "|3|" then
 response.redirect "página1.html"
 elseif rsLog("grupo") = "|2|" then
 'response.redirect "página3.html"%>

 <script language="javascript">
 window.location.href ="página2.html";
 </script>

 <%	else rsLog("grupo") = "|4|"
 response.redirect "página3.html"
 End If
 End if
	End if

End if

rsLog.Close
Set rsLogin = Nothing

conection.close
Set conexao = nothing
%>

Desde já agradeço