Открыть БД Access через VB

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

Надо открыть БД Access через VB

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
If password.Text = "123" Then
      Shell ("C:\bd.accdb") 'В этом месте выдаёт ошибку
      Else
      MsgBox ("Введён не верный пароль")
    End If
End Sub

Что не так делаю? Подскажите, пожалуйста.

Решение задачи: «Открыть БД Access через VB»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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
Private Const SW_SHOWNORMAL = 1
 
 
Private Sub Command1_Click()
If password.Text = "123" Then
      ShellExecute 0, vbNullString, "c:bd.accdb", vbNullString, vbNullString, SW_SHOWNORMAL
      Else
      MsgBox ("Введён не верный пароль")
    End If
End Sub