Updater flere tabeller i database

hvad fanden gør jeg!
jeg skal opdatere noget der ligner 21 tabeller på en gang.
ligenu kan den opdater i tabellen \"kunde\", men jeg vil gerne have at den opdater:
kundeRs(\"1b1\") = Request.Form(\"1b1\")
i tabellen maskine1
samtidligt. Hjælp ønskes.


<% Option Explicit %>
<---snip--->
<!-- #include file=\"adovbs.inc\" -->   
<%
Dim Forbindelse, kundeRs, Query, Querynr, nrRs, navn, rsIdentity, tid
Set Forbindelse = Server.CreateObject(\"ADODB.Connection\")
Forbindelse.Open \"DBQ=\"& Server.MapPath(\"kunde.mdb\")&\";Driver={Microsoft Access Driver (*.mdb)};\"
Set kundeRs = Server.CreateObject(\"ADODB.Recordset\")
Query = \"SELECT * FROM kunde order by nr\"

kundeRs.Open Query, Forbindelse, adOpenStatic, adLockOptimistic
kundeRs.AddNew

kundeRs(\"firmanavn\") = Request.Form(\"firmanavn\")
kundeRs(\"kontaktperson\") = Request.Form(\"kontaktperson\")
kundeRs(\"kontaktpersontlf\") = Request.Form(\"kontaktpersontlf\")
kundeRs(\"login\") = Request.Form(\"login\")
kundeRs(\"password\") = Request.Form(\"password\")
kundeRs(\"maskine1\") = Request.Form(\"maskine1\")
kundeRs(\"maskine2\") = Request.Form(\"maskine2\")
kundeRs(\"kundekommentar\") = Request.Form(\"kundekommentar\")

kundeRs.Update
kundeRs.Close
Set kundeRs = Nothing
%>