Credo il problema sia a monte.
una volta recuperati username e password dal form tipo:

If Len(request.form("email")) = 0 Then
'vai al form?
End If

Dim strUserName, strPassword, intId
strUserName = request.form( "cmpUser" )
strPassword = request.form( "cmpPsw")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/database.mdb")



'cerchi l'id attraverso la query

Dim objRs

set objRs = conn.Execute( "Select id From tbl_login Where user = ' " & strUsername & " ' And password = ' " & strPassword & " ' " )

quindi

If Not objRs.Eof Then
intId = objRs( "ID" )
'codice invio mail
Else
'ritorna alla pagina del form
End If


objRs.Close
set objRs = Nothing
conn.Close
Set conn = Nothing

a somme linee dovrebbe essere così