Salve a tutti
inserisco un record su una tabella usando il codice in SQL 
ho necessità di inserire in un campo la data corrente per tenere traccia
del movimento(il punto del codice,  vedi sotto,  è questo " & Date & _ )
su finestra immediata il formato della data è corretto
11/07/2007
mentre sulla tabella di destinazione no, trovo un valore del tipo 
01.01.08
sulla tab di destinazione il campo è di tipo Data ma senza specificare il
formato

non riesco a capire perchè mi potete aiutare ?
Grazie 


riporto sotto lo stralcio del codice
Dim strSql As String
Dim dbs As Database
Dim x As String
Dim Data As String
Data = Date
x = InputBox("Inserire la quantità da riportare a Magazzino")
DoCmd.SetWarnings False
strSql = "INSERT INTO Magazzino ( codice, Qtà , Mov, DataMov )" & _
"SELECT StockSpaccio.codice, " & x & ", 311," & Date & _
" FROM StockSpaccio " & _
"WHERE ([StockSpaccio.codice]=" & "'" &
[Forms]![TrasfStockMagSpaccio]![StockSpaccio].[Form]![codice] & "')"
    Set dbs = CurrentDb
    Debug.Print strSql
    dbs.Execute strSql
    dbs.Close
x = -x
strSql = "INSERT INTO Spaccio ( codice, Qtà, Mov, DataMov )" & _
"SELECT StockSpaccio.codice, " & x & ", 311," & Date & _
" FROM StockSpaccio " & _
"WHERE ([StockSpaccio.codice]=" & "'" &
[Forms]![TrasfStockMagSpaccio]![StockSpaccio].[Form]![codice] & "')"
    Set dbs = CurrentDb
    Debug.Print strSql
    dbs.Execute strSql
    dbs.Close


Ps ho utilizzato anche la variante Format(Date,"dd/mm/yyyy") ma senza
successo