codice:
Set DATAB = Application.CurrentDb
Set QUERY1 = DATAB.CreateQueryDef("")
With QUERY1
    .Connect = DATAB.Connect
    .Execute ("INSERT INTO PROTOCOLLO (DATA PROT, N_PROT, INVIO-RICEZ, TRAMITE, OGGETTO, CODICE, DENOMINAZIONE, CHIAVE) 
     values ('" & Me.DATA_PROT.Value & "', " & Me.N_PROT.Value & ", '" & Me.INVIO_RICEZ.Value & "', '" & Me.TRAMITE.Value & "', '" & Me.OGGETTO.Value & "', '" & Me.CODICE.Value & "', '" & Me.DENOMINAZIONE.Value & "', '" & Me.CHIAVE.Value & "')")
La struttura della Tabella Protocollo Access è la seguente

ID -> Contatore
Data Prot -> Data breve
N_Prot -> Numerico
INVIO_RICZ -> Testo
TRAMITE -> Testo
OGETTO -> Testo
CODICE -> Testo
DENOMINAZIONE -> Testo
CHIAVE -> Testo

Se uso Debug.Print per vedere la query dopo avergli passato i valori nella maschera


codice:
INSERT INTO PROTOCOLLO (DATA PROT, N_PROT, INVIO-RICEZ, TRAMITE, OGGETTO, CODICE, DENOMINAZIONE, CHIAVE) values (28/12/2010, 20094514, 'Entrata', 'Lettera A/R', 'asdf', 'FI0002', 'Accademia del Giglio', '2')
l'errore è: Errore di conversione del tipo di Dati.

how to fix?