Чтобы открыть базу данных и получить ссылку на представляющий ее объект Database, используйте во всех приложениях, кроме Microsoft Access, метод OpenDatabase объекта DBEngine или Workspace. Если Вы примените этот метод, Microsoft DAO откроет базу данных в стандартном рабочем пространстве, как в этом примере:

Function RetrieveRecordset( strDbName As String, strSource As String) As Boolean
═════Dim dbs As Database
═════Dim rst As Recordset
═════On Error GoTo Err_RetrieveRecordset
═════Set dbs = OpenDatabase(strDbName)
═════Set rst = dbs. OpenRecordset(strSource, dbOpenDynaset)
══════════' выполняем какие-то операции с набором записей
═════.
═════.
═════.
═════RetrieveRecordset = True
═════Exit_RetrieveRecordset:
═════rst. Close
═════dbs.Close
═════Exit Function

Err_RetrieveRecordset:
══════MsgBox "Error " & Err & ": " .& Err. Description
═════RetrieveRecordset = False
═════Resume Exit_RetrieveRecordset
End Function

Если Вы работаете в Microsoft Access, то для получения ссылки на текущую открытую базу данных вызывайте функцию CurrentDb, Чтобы открыть базу данных, отличную от уже открытых, или открыть ее в рабочем пространстве ODBCDirect, примените метод OpenDatabase. В следующем примере для получения ссылки на базу данных, открытую в Microsoft Access, вызывается функция CurrentDb:

Dim dbs As Database
Set dbs = CurrentDB
Debug. Print dbs. Name

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997