Уважаемые знатоки! Искал, но не нашел и прошу помощи.

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & drkt & ";" & _
"Extended Properties=dBASE IV"
rs.CursorType = adOpenStatic
Set rs = cn.Execute(sqlquery) - выбираются данные из таблиц Foxpro.2x
Результат запроса вставляется в лист книги. Пустые даты не отображаются. Очень хорошо.

cn.Open "Provider=vfpoledb;Data Source=" & drkt & ";" & _
"Collating Sequence=russian"
rs.CursorType = adOpenStatic
Set rs = cn.Execute(sqlquery) - теперь выбираются данные из таблиц VFP
Результат запроса вставляется в лист книги. Пустые даты отображаются как 00.01.1900. Плохо.

Если в sqlquery пишу "SELECT IIF(mydata={},SPACE(10),mydata) FROM mytable", то на листе книги
пустые даты, естественно, не видны, но но непустые уже отображаются в формате 05/08/2010
(8 мая). А если в выборку не попадает ни одна пустая дата, то все даты как 08.05.2010.

Нехорошо, когда в рядом стоящих столбцах excel-таблицы даты отображаются в разных форматах.

MAYAKOV_SV,

большое спасибо за отклик. К сожалению, на строке cn.execute("set date to german") выполнение прерывается с сообщением неопределенного содержания типа "Произошла какая-то ошибка". Сама установка формата даты мне хорошо знакома (часто работаю в Foxpro), только не знал, что ее можно использовать в таком контексте. Поработаю в этом направлении.