Dato eksporteret fra Access til Excel

Jeg har med udgangspunkt i en af mugs databaser fået overført en masse data til Excel, men der er et datoproblem jeg simpelthen ikke kan styre.

Når datoerne overføres bliver ikke alle datoer opfattet som datoer, og dem der ikke gør er datoer hvor de første cifre er større end 12.

fx.
24. jul 03 overføres til 24-07-2003 men ikke i dato format.
12. aug. 03 overføres til 08-12-2003 og i datoformat????
01. jul. 03 overføres til 07-01-2003 og i datoformat????

Koden jeg bruge følger her:

Private Sub cmdPressevaerdi_Click()

Dim Obvar As Object
Dim wkb As Object
Dim Rst As DAO.Recordset
Dim i As Integer
Dim Felt1 As Integer
Dim Felt2 As Integer
Dim Tek As String

On Error GoTo Errorhandler

DoCmd.SetWarnings False

DoCmd.OpenQuery "qryTilfoj_Data_ViewPressevaerdi"

Me.Refresh

Set Rst = DBEngine.Workspaces(0).Databases(0).OpenRecordset("ViewPressevaerdi", dbOpenTable)

Set Obvar = CreateObject("excel.application")

Set wkb = Obvar.Workbooks.Add

wkb.Worksheets("Ark1").Cells(1, 1).Value = "Dato"
wkb.Worksheets("Ark1").Cells(1, 2).Value = "Kunde"
wkb.Worksheets("Ark1").Cells(1, 3).Value = "Konkurrent"

For i = 2 To Rst.RecordCount + 1
    wkb.Worksheets("Ark1").Cells(i, 1).Value = Format(Rst.Fields![Dato])
    wkb.Worksheets("Ark1").Cells(i, 2).Value = Format(Rst.Fields![Kundenavn])
    wkb.Worksheets("Ark1").Cells(i, 3).Value = Format(Rst.Fields![Konkurrentnavn])
    Rst.MoveNext
Next

'Gør Excel synlig
Obvar.Visible = True

'Objektvariablen frigives
Set Obvar = Nothing

'Slår alle systemadvarsler til, husk altid at gøre dette hvis du har slået dem fra i starten af koden
DoCmd.SetWarnings True

Errorhandler:
If Err.Number = 94 Then
Resume Next
End If

End Sub