Problem med dato

Hvis jeg gør følgende:

Dim dtmNow As DateTime

Sub page_load
  if not isPostBack then
    dtmNow = DateTime.Now()
    dtmNow = dtmNow.ToString("D")
    response.write(dtmNow)
  end if
end sub


Så udskriver den:

29-04-2003 00:00:00

og ikke som jeg ønsker:

29-04-2003

Hvorfor ikke?