Hidden-Felder in Datenbank speichern

[Matthias]

Hallo
Ich erhalte beim Abspeichern von Daten mit Hidden-Feldern immer dieselbe Meldung:

"Kompilierungsfehler in Microsoft VBScript- Fehler '800a03ea'

Syntaxfehler

/iisHelp/common/500-100.asp, line 160

elseIf (objASPError.Description > "") Then
^
Microsoft OLE DB Provider for ODBC Drivers- Fehler '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Datentypen in Kriterienausdruck unverträglich.

/shop4/scripte/ware_sqlinsert_shop.asp, line 54"

Line 54 ist: conn.execute(a&b)

Was mache ich nur falsch? Irgendwo habe ich einen Überlegungsfehler (eher kein Tippfehler?!) drin! Wer kann mir helfen?
Besten Dank

Mein Code:

<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "kunden_shop","username","passwort" 'die letzten zwei sind optional

Name=Replace(Request.Form("Name"),"'","''")
'***Verhindert Fehler bei Formularweren mit Hochkommas, z.B. D'Angello
'***Replace erstetzt die Hochkommas durch 2 Hochkommas
Vorname=Replace(Request.Form("Vorname"),"'","''")
Adresse=Replace(Request.Form("Adresse"),"'","''")
PLZ=Replace(Request.Form("PLZ"),"'","''")
Ort=Replace(Request.Form("Ort"),"'","''")
Land=Replace(Request.Form("Land"),"'","''")
Telefon=Replace(Request.Form("Telefon"),"'","''")
Email=Replace(Request.Form("Email"),"'","''")

Anzahl=Replace(Request.Form("Anzahl"),"'","''")
Artikel=Replace(Request.Form("Artikel"),"'","''")
ArtNr=Replace(Request.Form("ArtNr"),"'","''")
Einzelpreis=Replace(Request.Form("Einzelpreis"),"'","''")
Gesamtpreis=Replace(Request.Form("Gesamtpreis"),"'","''")

x="Insert into adressen(Name,Vorname,Adresse,PLZ,Ort,Land,Telefon,Email)"
y=" Values('"&Name&"','"&Vorname&"','"&Adresse&"','"&PLZ&"','"&Ort&"','"&Land&"','"&Telefon&"','"&Email&"')"

conn.execute(x&y)

a="Insert into bestellung(Anzahl,Artikel,ArtNr,Einzelpreis,Gesamtpreis)"
b=" Values('"&Anzahl&"','"&Artikel&"','"&ArtNr&"','"&Einzelpreis&"','"&Gesamtpreis&"')"

conn.execute(a&b)

conn.close
set conn=nothing

%>