Problema campi data

Sto facendo delle prove sull'uso dei campi data e qui una semplicissima routine per editare un record andandolo a modificare con dati di semplici variabili
2 variabili numeriche
2 variabili stringa
2 variabili data
1 variabile boolean

il problema con le date e' che, indipendentemente dal valore editato nella form, me le ritrovo poi nella tabella con valore 30/12/1899
c'e' da fare qualche conversione?

Private Sub pul1_Click()
Dim my1ID, mytxt1num1, mytxt1num2
Dim mytxt1testo1, mytxt1testo2
Dim mytxt1data1, mytxt1data2
Dim mycco1cond
Dim resp
Dim strSQL

my1ID = Me.txt1ID.Value
mytxt1num1 = Me.txt1num1.Value
mytxt1num2 = Me.txt1num2.Value
mytxt1testo1 = Me.txt1testo1.Value
mytxt1testo2 = Me.txt1testo2.Value
mytxt1data1 = Me.txt1data1.Value
mytxt1data2 = Me.txt1data2.Value
mycco1cond = Me.cco1cond.Value

strSQL = "UPDATE Tabella1 SET "
strSQL = strSQL & "Tabella1.numero1 = " & mytxt1num1 & ", Tabella1.numero2 = " & mytxt1num2
strSQL = strSQL & ", Tabella1.Testo1 = '" & mytxt1testo1 & "', Tabella1.Testo2 = '" & mytxt1testo2 & "'"
strSQL = strSQL & ", Tabella1.data1 = " & mytxt1data1 & ", Tabella1.data2 = " & mytxt1data2
strSQL = strSQL & ", Tabella1.condiz = " & mycco1cond
strSQL = strSQL & " WHERE Tabella1.ID =" & my1ID & ";"

resp = MsgBox("Confermi l'aggiornamento?", vbYesNo)
If resp = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
    Me.crpcasella.Requery
End If
End Sub

Grazie a chi mi vorra' aiutare