Как использовать CreateObject в excel vba?

Question

Public Sub InformationManagement(myTable As String) 
    Dim myaccess As Object 
    Dim mydata As String 
    mydata = ThisWorkbook.Path & "\Management.mdb" 
    Set myaccess = CreateObject(mydata) 
    With myaccess 
     .Visible = True 
     .DoCmd.OpenTable myTable 
     .DoCmd.Maximize 
    End With 
    Set myaccess = Nothing 
End Sub 

Там является сообщение об ошибке «Ошибка выполнения„429“ActiveX компонент не может создать объект» произошло в строке -> Set myaccess = CreateObject (MYDATA)

Кто-нибудь знает, как решить эту проблему? Большое спасибо

Answer 1

Ive не сделали этого на некоторое время, но с верхней части моей головы, это должно быть больше похоже ..

Dim mydata As String 
Dim myaccess As Object 

mydata = ThisWorkbook.Path & "\Management.mdb" 
Set myaccess = CreateObject("Access.Application") 
With AccDatabase 

    .OpenCurrentDatabase mydata 
    .DoCmd.OpenTable myTable 
    .DoCmd.Maximize 
End With 
Set myaccess = Nothing