Да, есть

Может проблема в синтаксисе? Для 2007 офиса не могут быть другой синтаксис на обращение к базе?
Он же ругается на строчку:
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic

Вот отрывок из аналогичного макроса, который выполняется без ошибок:
Set rst = New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DSN=stat", "stat", "stat"
strSQL = "SELECT * from stat.detail d WHERE d.d_report =" & Chr(39) & curdate & Chr(39) & " and d.id_form=" & num_form
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
If rst.BOF = False Then
MsgBox "Äàííûå çà " & curdate & " óæå åñòü â áàçå!"
GoTo ext
End If
RstClose rst



Но мой нужный макрос не работает.

Shocker.ProCrywolfМожет проблема в синтаксисе? Для 2007 офиса не могут быть другой синтаксис на обращение к базе?так вы же сами сказали:
Crywolfпропущено...


та же ошибкау этого синтаксиса точно нет вариантов.

А тестирование соединения средствами самого DSN проходит?

а если

?

DSN я так понимаю настроен.

Если rst.Open strSQL, cnn, adForwardOnly, adReadOnly, то вылазит другая ошибка

Если сделать SELECT 1 , такая же ошибка: Драйвер ODBC не поддерживает требуемые свойства.

Konst_Oneвы не отвечаете на вопросы.

1. вы тестируете свои макросы всегда в одной книге экселя версии 2007?
2. DSN на этом компе рабочий?

Сейчас я тестирую на 2007 офисе, есть два файла, приложил к сообщению. Открываю personal.xls и пытаюсь прогнать макрос.
Я не знаю как проверить DSN , рабочий он или нет.

сам файл personal.xls

Konst_OneUDL файл для проверки создайте, я писал ранее

Вот что выходит, когда пытаюсь проверить подключение к stat

В файле что я приложил, там куча макросов, есть схожие по синтаксису, которые компилятся.

Пароль и пользователь это получается "stat", "stat"?

есть подключение

Разницы нет, синтаксис такой же.

Если в схожем макросе ставлю:

Set rst = New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DSN=stat", "stat", "stat"
strSQL = "SELECT 1"
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
If rst.BOF = False Then
MsgBox "Äàííûå çà " & curdate & " óæå åñòü â áàçå!"
GoTo ext
End If
RstClose rst


То вылазит моя любимая ошибка про ODBC драйвер.