Avanceret Sql sætning. En fejl fremkommer ( Fejlretning)

Hejsa.
Jeg sidder og roder med noget SQLkode som ikke fungerer efter hensigten. Jeg skal tilrette et program ( Det skal siges at jeg på ingen måde er SQL-ekspert, og alene det faktum at jeg begiver mig i kast med dette sker da jeg har noget god hjælp rundt om mig), men denne fejlmeddelse fremkommer

navn CPN insert into documents (docid, doctype, docname, author, creationdate, projectID, companyID, departmentID, comments,DocStore, CreatedDocTypeId, keywords, docstatusid, legacyid, danfossid, deleted) select IIf(Max(docid) Is Null,1,Max(docid)+1),4,'CPN test1',CPN,Now() ,2,3,2,'','C:\Documents and Settings\cpn\Desktop\tester.doc',0,'',1,'','',0 from documents where doctype =4
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
--------------------
Denne del af programmet skulle have fungeret med MySQL, men skal nu køre via en access-database.
Som man kan se i den underliggende kode skulle funktionen Now() anvendes. Tidligere brugte programmet Date() og GetDate(), men disse skulle volde en del problemer i access, så Now() virkede som det bedste valg.

/******************koden******************\
if isAccess then
%>
<% sql = sql & " insert into documents (docid, doctype, docname, author, creationdate, projectID, companyID, departmentID, comments,DocStore, CreatedDocTypeId, keywords, docstatusid, legacyid, danfossid, deleted) "%>
<% sql = sql & " select IIf(Max(docid) Is Null,1,Max(docid)+1)," &docType& ",'" &docName&  "'," &author& ",Now()"%>
<% sql = sql & "," &CStr(projectID)& "," &CStr(company)& "," &CStr(department)& ",'" &comments& "','"&docStore&"',"&CreatedDocTypeId & ",'"&keywords&"',1,'"&legacyId&"','"&danfossId&"',0" %>
<% sql = sql & " from documents where doctype ="&docType %>
<%
else

sql = "declare @next int" & vbnewline
sql = sql & " set @next = (select Max(docid)+1 from documents where doctype ="&docType& ")"& vbnewline
sql = sql & "if (@next is null)" & vbnewline
sql = sql & "  set @next = 1 " & vbnewline
sql = sql & "  " & vbnewline
sql = sql & "insert into documents (docid, doctype, docname, author, creationdate, projectID, companyID, departmentID, comments,DocStore, CreatedDocTypeId, keywords, docstatusid, legacyid, danfossid, deleted) "
sql = sql & "values(@next," &docType& ",'" &docName&  "'," &author& ",Now()"
sql = sql & " ," &CStr(projectID)& "," &CStr(company)& "," &CStr(department)& ",'" &comments& "','"&docStore&"',"&CreatedDocTypeId & ",'"&keywords&"',1,'"&legacyId&"','"&danfossId&"',0)"