Det har inte angetts något värde...

Hej!

Nu har jag suttit och stirrat mig blind på min kod. Undrar om någon kan hjälpa mig att fatta vad som är fel?

	from=cdate(from)
	tom=cdate(tom)
	for d = tom to from step -1
		sql = "INSERT INTO almanacka"&id&"   (KalenderVecka, bokad)" & _
			" VALUES ('" & _
			d & "', " & _
			true & ")"

                response.write(sql)				
	set rs=databasen.Execute(sql)	
	next

När jag skriver ut sql kommer detta fram:
INSERT INTO almanacka6 (KalenderVecka, bokad) VALUES ('2004-02-13', Sant)INSERT INTO almanacka6 (KalenderVecka, bokad) VALUES ('2004-02-12', Sant)

Databasen är en Access databas.
Tabellen heter almanacka6
I den finns 3 fält.
KalenderID som är räknare
KalenderVecka som är text
bokad som är ja/nej

Felmeddelandet jag får är:
Det har inte angetts något värde för en eller flera nödvändiga parametrar.

Mvh Lena