Update af to tabeller i DB

Hej - jeg har problemer med at update 2 tabeller samtidig i DB\'en - nogen som kan hjælpe???
Koden ser sådan ud:
<% 
personnr        =Request.QueryString(\"Personnr\")
brugertype        =Request.form(\"Brugertype\")
navn            =Request.form(\"Navn\")
adresse            =Request.form(\"Adresse\")
postnr            =Request.form(\"Postnr\")
postdistrikt    =Request.form(\"Postdistrikt\")
telefonnr        =request.form(\"Telefonnr\")
email            =request.form(\"Email\")
oprettelsesdato =request.form(\"Oprettelsesdato\")
brugernr        =request.form(\"Brugernr\")
brugernavn        =request.form(\"Brugernavn\")
password        =request.form(\"Password\")
bankkontonr        =request.form(\"Bankkontonr\")


set dbMain = server.createobject(\"ADODB.Connection\")
dbMain.open \"gruppe63\"
Set rsPerson = Server.CreateObject(\"ADODB.recordset\")
Set rsBruger = Server.CreateObject(\"ADODB.recordset\")

updateSql1 = (\"UPDATE Person SET Personnr=\'\"& personnr &\"\', Brugertype=\'\"& brugertype &\"\', Navn=\'\"& navn &\"\', Adresse= \'\"& adresse &\"\', Postnr = \'\"& postnr &\"\', Telefonnr=\'\"& telefonnr &\"\', Email=\'\"& email &\"\', Oprettelsesdato=\'\"& oprettelsesdato &\"\' where Personnr = \'\"& personnr &\"\'\")
(!!!!her er linje 23!!!!) rsPerson.open updateSql1, dbMain, adopenkeyset, adlockoptimistic
updateSql2 = (\"UPDATE Bruger SET Brugernavn=\'\"& brugernavn &\"\', Password= \'\"& password &\"\', Bankkontonr= \'\"& bankkontonr &\"\', Personnr=\'\"& personnr &\"\', Brugertypenr=Brugertypenr where Brugernr LIKE \'\"& brugernr &\"\'\")
rsBruger.open updateSql2, dbMain, adopenkeyset, adlockoptimistic
   
dbMain.Close
set dbMain = Nothing
%>
Fejlmeddelelsen ser sådan ud:

ADODB.Recordset error \'800a0bb9\'

The application is using arguments that are of the wrong type, are out of acceptable range, or are in conflict with one another.

/opdater.asp, line 23