Se inserisci la data con una stringa SQL, puoi fare così:
Se non usi Access, devi sostituire i caratteri # con l'apice 'codice:strDataPerDB = Month(DataUtente) & "/" & Day(DataUtente) & "/" & Year(DataUtente) strSQL = "INSERT INTO Tabella (CampoData) VALUES (#" & strDataPerDB & "#)"