What is the opposite of the EOF?!

<%
f request.form("account2")<>"" then
record6.open "select * from loan where loanid like'"&request.form("account2")&"'",db,1,3
end if
 
if record6.EOF then
Response.write("Already Took a loan")
else
 
record.open"select*from loan",db,1,3
record.addnew
record("loanid")=request.form("account2")
record("schema")=request.form("schema")
record("ldate")=request.form("adddate")
 
record.update
set record=nothing
 
end if
%>
 
 

<%
	Dim strDbName, strDbPath, strCnn
	strDbPath = Server.MapPath(".") & "\"
	strDbName = "dbname.mdb"
	strCnn = "Provider.Microsoft.Jet.OleDb.4.0;Data Source=" & strDbPath & strDbName & ";" 

	Dim strAccount2, strSchema, dtmAdded
	strAccount2 = Request.Form("account2")
	strSchema = Request.Form("schema")
	dtmAdded = Now()

	strSQL = "SELECT loanid From loan WHERE loanid like '" & strAccount2 & "';"
	Dim objCnn, objRst
	Set objCnn = Server.CreateObject("ADODB.Connection")
	objCnn.ConnectionString = strCnn
	Set objRst = objCnn.Execute(strSQL)
	If objRst.BOF OR objRst.EOF Then
		objRst.Close()
		Set objRst = Nothing
		strSQL = "INSERT INTO loan (loanid, schema, ldate) VALUES ('" & strAccount2 & "', '" & strSchema & "', #" & dtmAdded & "#);"
		objCnn.Execute(strSQL), intRecords
		objCnn.Close()
		Set objCnn = Nothing
		If intRecords = 1 Then
			Response.Write("You have taken a loan!")
		Else
			Response.Write("Unkown Error!")
		End If
	Else
		objRst.Close()
		Set objRst = Nothing
		objCnn.Close()
		Set objCnn = Nothing
		Response.Write("You have already taken a loan!")
	End If
%>