Se inserisci la data con una stringa SQL, puoi fare così:
codice:
strDataPerDB = Month(DataUtente) & "/" & Day(DataUtente) & "/" & Year(DataUtente)

strSQL = "INSERT INTO Tabella (CampoData) VALUES (#" & strDataPerDB & "#)"
Se non usi Access, devi sostituire i caratteri # con l'apice '