В reference подключен DAO 3.6
Office 2003, 2007
Win XP Prof
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim rs As DAO.Recordset

Set ws = CreateWorkspace("", "admin", "", dbUseJet)

Set db = ws.OpenDatabase(sBookPath, False, True, "Excel 8.0;HDR=NO;IMEX=1")

Set rs = db.OpenRecordset(sQuery)

Выполняем процедуру содержащую код в 2007 - все ок.
В 2003 - падает на
Set db = ws.OpenDatabase(sBookPath, False, True, "Excel 8.0;HDR=NO;IMEX=1")
В чем могут быть грабли? Причем, что интересно, на Office 2000 все работает....

Догнал. ODBC JET драйвер для Excel на машине с 2003 не установлен. Теперь вопрос как его доустановить...