Открыть форму из другой базы данных доступа

Question

Я пытаюсь создать простую регистрационную форму в доступе и пользователь должен иметь их назначенный доступ к базе данных/форме на основе регистрационной информации пользователя, ниже мой код:

Private Sub Command6_Click() 
Dim strpassword As String 
Dim password As String 
Dim userlevel As String 

password = Me.Text0.Column(1) 
userlevel = Me.Text0.Column(2) 
strpassword = Me.Text4 


If strpassword = password Then 
If userlevel = "Admin" Then 
GetObject ("C:\Users\accessdatabase.accdb") 
DoCmd.OpenForm "Form" 
Else 
(open other forms) 
End If 

Else 
MsgBox "Nope" 
End If 

End Sub 

Я знаю, что я делаю что-то неправильно. Я действительно не знаю, что делать после проверки уровня пользователя. Я обыскал несколько команд онлайн, но это не сработало. Anyhelp бы реально оценить

Благодаря

Answer 1

Я бы объявить объект в качестве переменной:

Dim objAdb As Object 

Set objAdb = CreateObject("Access.Application") 
objAdb.OpenCurrentDatabase ("C:\Users\accessdatabase.accdb") 
objAdb.DoCmd.OpenForm "Form" 

независимо от метода, необходимо указать DoCmd, что у вас есть к другой БД