'В примере используется база данных, устанавливаемая вместе с Visual Basic - "nwind.mdb".
'На ней я установил пароль - 21.
'В новом проекте устанавливаем ссылку на библиотеку Microsoft DAO 3.51 Object Library.
'Открыть nwind.mdb с использованием DAO можно двумя методами. Открываем таблицу Products:

'ВАЖНО! Третий параметр установлен мною в True - монопольный доступ
' (БД открывается только для чтения). При необходимости,
' естественно, можно переустановить.

'************ 1 способ ******************************************

Private Sub Form_Load()
Dim db As DAO.Database, rs As DAO.Recordset

DBEngine.DefaultType = dbUseODBC
DBEngine.DefaultPassword = "21"
Set db = DBEngine.OpenDatabase("" _
, dbDriverNoPrompt, True, _
"odbc;driver=microsoft access driver (*.mdb);dbq=c:\program files\microsoft visual studio\vb98\nwind.mdb;")
Set rs = db.OpenRecordset("select * from products")

End Sub

'*********** 2 метод ********************************************

Private Sub Form_Load()
Dim db As DAO.Database, rs As DAO.Recordset

DBEngine.DefaultType = dbUseODBC
Set db = DBEngine.OpenDatabase("" _
, dbDriverNoPrompt, True, _
"odbc;driver=microsoft access driver (*.mdb);dbq=c:\program files\microsoft visual studio\vb98\nwind.mdb;pwd=21.11.69;")
Set rs = db.OpenRecordset("select * from products")

End Sub

От себя. Ранее я использовал DAO, связывая проект VB и базы данных MS Jet. Больше всего мне
не нравилось то, что на практике (особенно, когда "переносил" программы на компьютер
пользователя) DAO часто "капризничало", то есть проект работает, а потом не работает.
Поэтому я перешел на ADODB. Оно проще, работает четко, программного кода меньше,
а главное эти знания пригодились мне для работы в сетях (ASP).
Если Вам не трудно, загляните на мой узел - http://www.shuya.ipn.ru/~ksa11.
Может быть моя специфика имеет параллельные стороны с Вашей. Когда возникнут вопросы,
обращайтесь, только с одним обязательным условием, сначала Ваш вопрос должен быть опубликован на
этой (или программистов VB) странице.
С уважением ко всем, кто прочитал эти строки. Корниенко Сергей: почта - ksa~11@mail.ru