ASP - Campo Especifico Recordset

Hola! este es el codigo, el problema que me esta dando es por no poder referenciar a un campo en especifico de un RecorDSet.

<%
Usuario=Request.Form("txt_Usuario")
Pass=Request.Form("txt_Contrasenia")
Cadena_Conexion="DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; DATABASE=BD; UID=autent; PASSWORD=siglo; OPTION=3"
Set Conexion = Server.CreateObject("ADODB.Connection")
if Usuario <> "" AND Pass <> "" then
Conexion.Open(Cadena_Conexion)
Set RecordSet = Conexion.Execute("SELECT nomusuario, rol FROM empleado WHERE nomusuario='" & Usuario & "';")

if RecordSet("NOMUSUARIO")=Usuario then
Conexion.Close
Cadena_Conexion="DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost; DATABASE=BD; UID=" & Usuario & "; PASSWORD=" & Pass & "; OPTION=3"
Session("Cadena_Conexion")=Cadena_Conexion
Session("Usuario")=RecorSet("NOMUSUARIO")
Session("Cargo")=RecordSet("ROL")
on error resume next
Conexion.Open(Cadena_Conexion)
Conectado=TRUE
if err.number <> 0 then
Response.Write(err.description)
Conectado=FALSE
end if
if Conectado=TRUE then
Response.Redirect("principal.asp")
else
Response.Redirect("login.asp")
end if
else
Response.Write("Ese usuario no existe.. Intente nuevamente.")
end if
RecordSet.Close
end if
%>

LO QUE NO ME ESTA FUNCIONANDO AL PARECER ES LO QUE ESTA EN NEGRITA Y SUBRAYADO y ya probe con varias cosas que encontre por ahi y no logro dar con el uso que busco para eso.
GRACIAS DESDE YA Y ESPERO ME PUEDAN AYUDAR! :)

PD: ya probe con
RecordSet.Fields(indice)
RecordSet.Fields(indice).Value
RecordSet(indice)
y demas variables entre eso y no funcionaron.

Primero tienes que verificar si el recordset tiene registros
'muestra la cantidad d registros
response.write recordset.recordcount()
Do while not recordset.eof
'codigo a ejecutar
recordset.movenext
lopp