Открыть с VB Form БД *.mdb через Access для редактирования

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
 
Private Sub Command1_Click()
 ShellExecute Me.hwnd, vbNullString, "C:\Путь_к_базе\Ваша_База.mdb", vbNullString, "", SW_SHOWNORMAL
End Sub

strDBName = App.Path & "\biblio.mdb" ' установить путь к таблице рядом с программой

' Декларация функции для запуска файла. 
Public Declare Function ShellExecute Lib "shell32.dll" Alias _ 
                        "ShellExecuteA" (ByVal hwnd As Long, _ 
                         ByVal lpOperation As String, _ 
                         ByVal lpFile As String, _ 
                         ByVal lpParameters As String, _ 
                         ByVal lpDirectory As String, _ 
                         ByVal nShowCmd As Long) As Long 
 
' Декларация константы для максимизирования окна открываемого приложения. 
' Для работы с другими константами смотрите MSDN. 
Public Const SW_SHOWMAXIMIZED = 3 
 
'После этого нижеследующий код будет открывать файл test.xls. 
 
Call ShellExecute(0, "open", "test.xls","", "", SW_SHOWMAXIMIZED)