Проверено в ближайшем окне и работает для меня (вывод в виде комментария)
Format(Now, "MM/dd/yyyy") '04/29/2009
Format(Date, "MM/dd/yyyy") '04/29/2009
Format(CStr(Now), "MM/dd/yyyy") '04/29/2009
Format(Date$, "MM/dd/yyyy") '04/29/2009
Format(CDate(Date), "MM/dd/yyyy")'04/29/2009
То есть, строка это или дата и время, не имеет значения.
Редактировать: увидел ваш комментарий к Фредрику. Неважно, как это выглядит, когда вы сохраняете его в таблицу db (формат даты столбца будет свойством db, а не ответственностью вашей программы (или vb)) Просто отформатируйте значение, как и когда вы получите его из БД.