Error in row - opdater database

Jeg har forsøgt at hjælpe en ven med noget kode, men er røget ind i problemer.
Er det mon muligt for nogen at kigge koden igennem og se efter fejl?
Der er en database med 2 tabeller, lejer og tilmeldinger. I følgende kode(ved 'Tilføjer brugernavn til databasen) skal der kun skrives til databasen, men der kaldes en ’sql = select’. Tror det er der, det går galt(?) men er ikke så hård i asp og sql.
Det virker når et brugernavn er oprettet og betalt = 1 og man kan oprette et helt nyt brugernavn. Men hvis et brugernavn eksisterer og betalt = 0, så kommer der ”error in row”(I sidste del af kode-stumpen).

'Åbner connection til databasen
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("..\database\lejebolig.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from lejer where brugernavn = '" & Request("brugernavn") & "' AND betalt = 1"
rs.Open strsql, conn, 1, 3

if rs.eof or rs.BOF then ’Tjekker om brugernavnet er oprettet

'Tilføjer brugernavn til databasen
Set tilmeldte = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from tilmeldinger where brugernavn = '" & Request("brugernavn") & "'"
tilmeldte.Open strsql, conn, 1, 3
                                       
' function der konverterer alle begyndelsesbogstaver til stort                       
function ordMedStort(str)
arr=split(trim(str), " ")
tmp=""
for i = 0 to ubound(arr)
tmp=tmp & UCase(left(arr(i),1)) & mid(arr(i),2) & " "
next
ordMedStort = trim(tmp)
end function
Navn = ordMedStort(Request("Navn"))
Postby = ordMedStort(Request("Postby"))
Adresse = ordMedStort(Request("Adresse"))
                                                                               
' stort begyndelses bogstav
Overskrift = Request("Overskrift")
Overskrift = UCase(left(Overskrift,1)) & mid(Overskrift,2)
                                           
Annoncetekst = Request("Annoncetekst")
Annoncetekst = UCase(left(Annoncetekst,1)) & mid(Annoncetekst,2)

'Tilføjer lejer til databasen
rs.AddNew
rs("Navn") = Server.HTMLEncode(Navn)
rs("Adresse") = Server.HTMLEncode(Adresse)
rs("Postnr") = Server.HTMLEncode(Request("Postnr"))
rs("Postby") = Server.HTMLEncode(Postby)
rs("Telefon") = Server.HTMLEncode(Request("Telefon"))
rs("Brugernavn") = Server.HTMLEncode(Request("Brugernavn"))
rs("Kode") = Server.HTMLEncode(Request("Kode"))
rs("Region") = Server.HTMLEncode(Request("Region"))
rs("Overskrift") = Server.HTMLEncode(Overskrift)
rs("Annoncetekst") = Server.HTMLEncode(Annoncetekst)
rs("Periode") = Server.HTMLEncode(Request("Periode"))
rs("Husleje") = Server.HTMLEncode(Request("Husleje"))
rs("Boligtype") = Server.HTMLEncode(Request("Boligtype"))
rs("Rum") = Server.HTMLEncode(Request("Rum"))
rs("Kvm") = Server.HTMLEncode(Request("Kvm"))
rs("Husdyr") = Server.HTMLEncode(Request("Husdyr"))
rs("Aktiv") = Server.HTMLEncode(Request("Aktiv"))
rs("Abonnement") = Server.HTMLEncode(Request("Abonnement"))
rs.update ’Her kommer error in row

tilmeldte.AddNew
tilmeldte("Navn") = Server.HTMLEncode(Navn)
tilmeldte("Adresse") = Server.HTMLEncode(Adresse)
tilmeldte("Postnr") = Server.HTMLEncode(Request("Postnr"))
tilmeldte("Postby") = Server.HTMLEncode(Postby)
tilmeldte("Telefon") = Server.HTMLEncode(Request("Telefon"))
tilmeldte("Brugernavn") = Server.HTMLEncode(Request("Brugernavn"))
tilmeldte.update

dblejerid = rs("LejerID")

rs.Close
set rs = nothing