Dato problem

Jeg har et problem med at vise datoer korrekt, den rigtige dato er d. 04/10-2002, men den bliver udskrevet som 10/04-2002. Problemet forekommer kun når "d" er under 10, og selvom jeg bytter om på "d" og "m" i DatePart koden udskriver den stadigvæk 10/04-2002. Her er min kode:

endDate = objRS("Dags_Dato_DT")
        If DatePart("d", endDate) < 10 Then
            EndDate = "0" & DatePart("d", EndDate) & "/" & DatePart("m", EndDate) & _
                      "-" & DatePart("yyyy", EndDate)
        End If
        If DatePart("m", EndDate) < 10 Then
            EndDate = DatePart("d", EndDate) & "/0" & DatePart("m", EndDate) & _
                      "-" & DatePart("yyyy", EndDate)
        End If
        If DatePart("d", EndDate) < 10 AND DatePart("m", EndDate) < 10 Then
            EndDate = "0" & DatePart("d", EndDate) & "/0" & DatePart("m", EndDate) & _
                      "-" & DatePart("yyyy", EndDate)
        End If


Hvad er der galt?