После установки 2007 excel не работают макросы. До этого был 2002, все работало.

Сам макрос:
Sub вознаграждения()
'
' вознаграждения макрос
' макрос записан 10.03.2011 (u02635)
'
Dim rst As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim strSQL As String

Dim dd1 As Date
Dim dd2 As Date

dd1 = CDate("01.01.2010")
dd2 = CDate("31.01.2010")

Set rst = New ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open "DSN=stat", "stat", "stat"

strSQL = "SELECT * from (select t.d_report, t.znac from detail t where t.id_form = 10165 and t.d_report >= to_date(" & Chr(39) & dd1 & Chr(39) & ") and t.d_report <= to_date(" & Chr(39) & dd2 & Chr(39) & ") and t.id_pokaz in (select s.id from s_pokaz s where s.id_form = 10165 and s.code_pokaz = '3' and s.dat_end is null) order by t.d_report desc) where rownum = 1"
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
rst.Close

MsgBox strSQL
End Sub

Ругается на выделенную строку и выдает ошибку:
Драйвер ODBC не поддерживает требуемые свойства
Сам в VBA не разбираюсь, прошу помочь.

Как это сделать?

На что нужно изменить?)

Писал не я, я в этом вообще не разбираюсь, моя задача чтобы работало на 2007 офисе.
из оракловой базы тащатся данные в экселевскую таблицу, по этим данным рассчитываются определенные функции, я указал строку кода , на которую ругается компилятор...
попробую поменять на статик

поменял на статик, не помогло, таже ошибка

Драйвер ODBC не поддерживает требуемые свойства.

Не знаю как это сделать =)
Эта ошибка означает что нет подключения к БД?

Ставил не я, винда 32-я стоит 7-ка, разве 64-й офис можно на 32-ю винду натянуть?
Я вообще как посредник, ну с руководством не поспоришь, пытаюсь разобраться.

хорошо, спасибо вам за помощь

Ошибку кажется нашел, ну не знаю как ее исправить:
Ругается на строку:

rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic

а именно на переменную strSQL, если я убираю эту переменную, то вылезает другая ошибка на соответствие формата данных, если удаляю эти строки:
rst.Open strSQL, cnn, adOpenDynamic, adLockOptimistic
rst.Close

то макрос компилится, возможно ошибка в типе переменной strSQL, ну я не знаю как это исправить, ведь на 2003 офисе все работало.

Shocker.Proпопробуйте



та же ошибка - Драйвер ODBC не поддерживает требуемые свойства.

макрос работает на 2003 офисе, после переустановки работать отказывается.

Konst_Oneоткройте панель управления ODBC и проверьте свой DSN

как это сделать? )

к сожалению сегодня не могу уже ничего проверить, ответственный человек ушел домой, только завтра
спасибо за помощь

Konst_Oneоткройте панель управления ODBC и проверьте свой DSN

Что именно нужно проверить? На других компьютерах этот макрос также не работает, выдает ту же ошибку. Хотя другие макросы работают. Может синтаксис VBA отличаться в различных версиях офиса?