[asp] Wil niet werken

[spider]

Op de een of andere manier wilt hij niet werken,

Zegt
Error Type:
Provider (0x80020005)
Type mismatch.
/_mdesk/_password/postweek.asp, line 15

iemand een idee, want ik krijg kom er niet uit.
eventueel, voledige code met database en form

<%
Dim opendata
Dim Constring
Dim rs
Dim strSQL
Set opendata = Server.CreateObject("ADODB.Connection")
Constring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("urbackhand.mdb")
opendata.Open Constring
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Werk.Datum, Werk.Werknemer, Werk.inlogname, Werk.Van, Werk.Tot, Werk.Uren, Werk.Overuren, Werk.Klant, Werk.Werkzaamheden, Werk.Klantnr, Werk.Projectnr, Werk.Callnr, Werk.Toelichting, Werk.Facturabel, Werk.Weeknr FROM Werk;"
rs.LockType = 4
rs.CursorType = 1
rs.Open strSQL, Constring
rs.AddNew
rs.Fields("Datum") = Request.Form("invdate")
rs.Fields("Werknemer") = Request.Form("invnaam")
rs.Fields("Van") = Request.Form("invvan")
rs.Fields("Tot") = Request.Form("invtot")
rs.Fields("Uren") = Request.Form("invuren")
rs.Fields("Overuren") = Request.Form("invoveruren")
rs.Fields("Klant") = Request.Form("invklant")
rs.Fields("Klantnr") = Request.Form("invklantnr")
rs.Fields("Projectnr") = Request.Form("invprojectnr")
rs.Fields("Callnr") = Request.Form("invcallnr")
rs.Fields("Werkzaamheden") = Request.Form("invwerkzaamheden")
rs.Update
rs.Close
Set rs = Nothing
Set opendata = Nothing
%>

[Verwijderd]

Move to P&W?

[Verwijderd]

als je strings in een db wilschrijven moeten er ' omheen toch?

[Pelle]

Nooit van je moeder geleerd dat je niet mag crossposten?