Come mai questo errore?
Grazie
G.
codice:
sql = "INSERT INTO editoria (code,codiceprodotto,titolo,sottotitolo,autori,categoria,area1,area2,area3,area4,collana,a_cura,anno,edizione,pagine,editore,foto,prezzo,sconto,totale,offerta,novita,descrizione,priorita,offerta_scadenza,novita_scadenza)"

sql = sql & " VALUES (" 
sql = sql & "" & code & "," 
sql = sql & "'" & codiceprodotto & "'," 
sql = sql & "'" & titolo & "',"
sql = sql & "'" & sottotitolo & "',"
sql = sql & "'" & autori & "',"
sql = sql & "'" & categoria & "',"
sql = sql & "'" & area1 & "',"
sql = sql & "'" & area2 & "',"
sql = sql & "'" & area3 & "',"
sql = sql & "'" & area4 & "',"
sql = sql & "'" & collana & "',"
sql = sql & "'" & a_cura & "',"
sql = sql & "'" & anno & "',"
sql = sql & "'" & edizione & "',"
sql = sql & "'" & pagine & "',"
sql = sql & "'" & editore & "',"
sql = sql & "'" & foto & "',"
sql = sql & "'" & prezzo & "',"
sql = sql & "'" & sconto & "',"
sql = sql & "'" & totale & "',"
sql = sql & "'" & offerta & "',"
sql = sql & "'" & novita & "',"
sql = sql & "'" & descrizione & "',"
sql = sql & "" & priorita & ","

	If offerta_scadenza <> "" Then
		sql = sql & "" & offerta_scadenza & ", "
	Else
		sql = sql & "offerta_scadenza=NULL,"
	End If
	If novita_scadenza <> "" Then
		sql = sql & "" & novita_scadenza & ""
	Else
		sql = sql & "novita_scadenza=NULL"
	End If
		SQL = SQL & ")" 

Conn.Execute(sql)