VBA esportare data da tabella access in formato data calendario outlook

[devil946]

Ciao a tutti, il quesito è molto semplice. Come faccio a esportare la data da un campo contenuto in una tabella access (gg/mm/aaaa) in una data con formato compatibile con la data del calendario di outlook. In pratica quando esporto l'ora tutto ok, ma quando esporto la data nell'evento del calendario compare sempre il 30/12/1899.
Questa è il codice che uso il campo è definito come data in cifre.

Set rstDati = CurrentDb.OpenRecordset("SELECT Min(T_Appuntamenti.OraAppuntamento) AS OraInizio, Max(T_Appuntamenti.OraAppuntamento) AS OraFine, " & _
"T_Appuntamenti.DataAppuntamento , T_Appuntamenti.Oggetto, T_Appuntamenti.Progressivo From T_Appuntamenti " & _
"GROUP BY T_Appuntamenti.DataAppuntamento, T_Appuntamenti.Oggetto, T_Appuntamenti.Progressivo")
Do While Not rstDati.EOF
Dim olApp As Outlook.Application
Dim olApt As AppointmentItem


Set olApp = New Outlook.Application
Set olApt = olApp.CreateItem(olAppointmentItem)
With olApt

.Start = rstDati.Fields("DataAppuntamento").Value
.End = .Start
............
............
............
Come detto l'evento viene registrato sul calendario all'orario di inizio e fine giusti ma la data è sempre la stessa(SBAGLIATA).
Grazie a tutti in anticipo

[gibra]

Outlook vuole le date in formato esteso americano.
Devi formattare la data così:

.Start = Format$(rstDati!DataAppuntamento, "DD/MM/YYYY HH.NN.SS")