query maledetta errore inset into

[mexican]

Ciao a tutti, sto impazzendo con una query, e non capisco l'errore, aiutatemi o esco pazzo VVoVe: .
eccovi il codice:

Sub Salva(s as Object, e as EventArgs)
    	connetti()
		dim strsql as string
	   	dim rs as OleDbDataReader
	   	dim cmdInsert as OleDbCommand


					strsql="Insert Into Minute (id_paese, citta, descrizione_citta, dal, al, alloggio, descrizione_alloggio, mezzo, partenza, arrivo, link_1, link_2, durata, prezzo, allegato_1, allegato_2 ) values("
					strsql=strsql & " '" & paese.selectedItem.value & "'"
					strsql=strsql & ", '" & replace(citta.text, "'", "''") & "'"
					strsql=strsql & ", '" & replace(descrizione_citta.text, "'", "''") & "'"
					strsql=strsql & ", #" & convertidata(dal.text) & "#"
					strsql=strsql & ", #" & convertidata(al.text) & "#"
					strsql=strsql & ", '" & replace(alloggio.text, "'", "''") & "'"
					strsql=strsql & ", '" & replace(descrizione_alloggio.text, "'", "''") & "'"
					strsql=strsql & ", '" & mezzo.SelectedItem.value & "'"
					strsql=strsql & ", '" & replace(partenza.text, "'", "''") & "'"
					strsql=strsql & ", '" & replace(arrivo.text, "'", "''") & "'"
					strsql=strsql & ", '" & replace(link1.text, "'", "''") & "'"
					strsql=strsql & ", '" & replace(link2.text, "'", "''") & "'"
					strsql=strsql & ", '" & replace(durata.text, "'", "''") & "'"
					strsql=strsql & ", " & replace(prezzo.text, "'", "''")
					strsql=strsql & ", '" & replace(allegato1, "'", "''") & "'"
					strsql=strsql & ", '" & replace(allegato2, "'", "''") & "'"
					strsql=strsql & ")"
					response.Write(strsql)
					conn.close()
					response.End()
					cmdInsert=new OleDbCommand(strsql, conn)
					cmdInsert.ExecuteNonQuery()
					conn.close()

end sub