pues amigo despues de crear la conexion y el recorset te falta hacer el select que te rescate los datos y te llene el recorset
Código:
Set rs = Server.CreateObject("ADODB.Recordset")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\jpalbox\db\usuarios.mdb"))
SQL="Select * from TABLA where nombre=?" & tu_variable & "'"
SET rs=con.execute(SQL)
if not rs.eof and not rs.bof then
'todo el resto que sigue
%>
obviamente tu SQL debe quedar segun lo que desees tu...solo es un ejemplo.