Почему на строку Set db = DAO.OpenDatabase ругается VB

Формулировка задачи:

Самое начало. DAO подключен.

Dim db As DAO.Database 
Dim rs As DAO.Recordset 
Set db = DAO.OpenDatabase('C:\SEMENkr_97.mdb')

И VB начинает ругаться (хотя вроде не должен):Invalid outside procedure Может кто подскажет

Решение задачи: «Почему на строку Set db = DAO.OpenDatabase ругается VB»

textual
                            Листинг программы 
                        
                            Set db=OpenDataBase('Путь к БД', False, False)
Set rs=db.OpenRecordset('Ваша Таблица или SQL-запрос')