Get ID from a DB Field after INSERT

Well, now I've hit another problem...  Any more help would once again be appreciated.

<>Microsoft VBScript runtime error '800a000d'
Type mismatch: 'sql2'
/hp04/test/register_confirm.asp, line 32

sql2="SELECT TOP 1 pk_Reg_ID FROM Primary_Registrations ORDER BY pk_Reg_ID DESC;"
connAuction.execute(sql2)

Session("reg_ID")=sql2("pk_ID")    &nb sp;         &nb sp;       <!--LINE 32

Thank you!

Here's the final code for anyone that has a similar problem...

<%
'INSERT FORM INFORMATION INTO DATABASE

If request.form("FName")<>"" Then FName= request.form("FName") Else FName= "None"
If request.form("LName")<>"" Then LName=request.form("LName") Else LName="None"
If request.form("Company")<>"" Then Company=request.form("Company") Else Company="None"
If request.form("Phone")<>"" Then Phone=request.form("Phone") Else Phone="None"
Fax="NULL"
If request.form("Email")<>"" Then Email=request.form("Email") Else Email="None"
If request.form("Address1")<>"" Then Address1=request.form("Address1") Else Address1="None"
If request.form("Address2")<>"" Then Address2=request.form("Address2") Else Address2="None"
If request.form("City")<>"" Then City=request.form("City") Else City="None"
If request.form("State")<>"" Then St=request.form("State") Else St="None"
If request.form("Zip")<>"" Then Zip=request.form("Zip") Else Zip="None"
If request.form("Cancellation_Agreement")<>"" Then Cancellation_Agreement=request.form("Cancellation_Agre ement") Else Cancellation_Agreement=None
If request.form("Amount_Due")<>"" Then Amount_Due=request.form("Amount_Due") Else Amount_Due="None"
If request.form("IP")<>"" Then IP=request.form("IP") Else IP="None"

myDSN="DSN=hp04"
set connAuction=server.createobject("adodb.connection")
connAuction.open myDSN

sql="INSERT INTO Primary_Registrations (FName, LName, Company, Position, Phone, Email, Address1, Address2, City, St, Zip, Cancellation_Agreement, Amount_Due, IP) VALUES ('"&FName&"', '"&LName&"', '"&Company&"', '"&Position&"', '"&Phone&"', '"&Email&"', '"&Address1&"', '"&Address2&"', '"&City&"', '"&St&"', '"&Zip&"', '"&Cancellation_Agreement&"', '"&Amount_Due& ;"', '"&IP&"')"
connAuction.execute(sql)
connAuction.close
%>

<%
myDSN="DSN=hp04"
set conn2Auction=server.createobject("adodb.connection")
conn2Auction.open myDSN
set rsAuction=server.createobject("adodb.recordset")
getID="SELECT TOP 1 pk_Reg_ID FROM Primary_Registrations ORDER BY pk_Reg_ID DESC;"
rsAuction.open getID, myDSN

set Session("reg_ID")=rsAuction.Fields("pk_Reg_ID")
%>