Quotation help in VB

[E3]

Dim RSID
Dim MaxID

Set RSID = CreateObject("ADODB.Recordset&quot
Set MaxID = CreateObject("ADODB.Recordset&quot

MaxID = conn.Execute("Select MAX(bidderid)+1 from bidders&quot

conn.Execute "Insert into bidders(bidderid,biddername, password, " _
& "emailaddress, address, csz, phonenumber) values (" _
& MaxID("bidderid&quot & "" _
& "'" & TheRequest.Form("Username&quot & "', " _
& "'" & TheRequest.Form("Password&quot & "', " _
& "'" & TheRequest.Form("EmailAddress&quot & "', " _
& "'" & TheRequest.Form("Address&quot & "', " _
& "'" & TheRequest.Form("CSZ&quot & "', " _
& "'" & TheRequest.Form("PhoneNumber&quot & "')"


Set RSID = conn.Execute("Select Max(bidderid) as MaxID " _
& "from bidders&quot
TheSession("BidderID&quot = RSID("MaxID&quot

End Sub


Right now I have having errors in the the line whereby I tried to pass in the recordset "MaxID". Is my quotation right? after the concatenation & , I shouldn't be adding a double quotation since its a variable?

Can some show me the correct way of putting quotes? or the rules?

Error Type:
ADODB.Fields (0x800A0CC1)
Item cannot be found in the collection corresponding to the requested name or ordinal.
/Register_ID.asp, line 7