VBA - После обновления Microsoft Office не работают макросы

После установки 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.Close
MsgBox strSQL
End Sub
Ругается на выделенную строку и выдает ошибку:
Драйвер ODBC не поддерживает требуемые свойства
Сам в VBA не разбираюсь, прошу помочь.