Прошу помощи

[ddd]

Старая система, Windows NT 4 SP6, RSView32 6.30.
Новая, Windows 2000 SP3, RSView32 6.30.
Проблема: При переносе проекта с НТ на 2000 перестал работать нижеприведенный кусок кода VBA (а именно строка" Set m_Database = m_Workspace.OpenDatabase(m_DBFileName)"). Все предложения инженеров Rockwell Automftion Moscow по настройке ODBC выполнены, результат нулевой, т.е. по НТ все работает на ура, под 2000 - нет.

Sub InitializeDB()
On Error Resume Next

' specify path and name of Access database
m_DBFileName = gProject.Path & "\Language.MDB"

On Error GoTo DBErrorHandler ' Enable error trapping.

'Create workspace
Set m_Workspace = Workspaces(0)

'Open database
Set m_Database = m_Workspace.OpenDatabase(m_DBFileName)

On Error GoTo DBTableErrorHandler

'Open table, and query for all records in Language table
Set m_Language_Table = m_Database.OpenRecordset("LANGUAGE", dbOpenDynaset)

Exit Sub

'Error handler for database open
DBErrorHandler:

MsgBox "Can't open database " & m_DBFileName, vbExclamation
Exit Sub

'Error handler for table query
DBTableErrorHandler:
MsgBox "Can't open LANGUAGE table", vbExclamation
Exit Sub

End Sub

[Dmytro]

Попробуйте закомментарить (поставить ' в начале строки) строчки, которые начинаются с "On Error..." и напишите сюда, какое сообщение об ошибке выдает VBA.

[ddd]

Спасибо, в этом месте Step Run прошел, но глюки начались дальше, теперь буду сам искать. Еще раз спасибо.