Data type mismatch in criteria expression

Här kommer ett förhopningsvis ganska lätt problem:
felmeddelandet lyder:

Microsoft JET Database Engine error '80040e07' 

Data type mismatch in criteria expression. 

/admin/savehandelse.asp, line 47

och koden lyder:

<%
set mincon = Server.CreateObject("ADODB.Connection")
mincon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\kalasmannen\db\nyponet.mdb")

set rubrik = request.Form("rubrik")
set beskrivning = request.Form("beskrivning")
set aret = request.Form("ar")
set manaden = request.Form("manad")
set dag = request.Form("dag")

if rubrik = "" then
%>
<meta http-equiv="refresh" content="1;URL=klant.htm">
<%
end if

if beskrivning = "" then
%>
<meta http-equiv="refresh" content="1;URL=klant.htm">
<%
end if

if aret = "" then
%>
<meta http-equiv="refresh" content="1;URL=klant.htm">
<%
end if

if manaden = "" then
%>
<meta http-equiv="refresh" content="1;URL=klant.htm">
<%
end if

if dag = "" then
%>
<meta http-equiv="refresh" content="1;URL=klant.htm">
<%
end if

Datum = dag & "-" & manaden & "-" & aret

query = "insert into handelser(Datum,Beskrivning,Rubrik) values('" & Datum &"','" & Beskrivning & "','" & Rubrik & "')"
mincon.execute query,,128

mincon.close

mincon.execute raden är rad 47