создать файл доступа DAO в Excel VBA

Question

Я не могу создать файл, используя следующие команды, может ли кто-нибудь мне помочь в этом отношении. Ошибка, о которой он говорит, является недопустимым аргументом. я получил должность 2010.

Мой исх является: MS Office 14,0 ACCESS DATABASE ОБЪЕКТ БИБЛИОТЕКА

Sub DBcreate() 

Dim DB As DAO.Database 
Dim RS As DAO.Recordset 


Set DB = DAO.Workspaces(0).CreateDatabase("D:\tblImport11.accdb", DB_LANG_GENERAL) 
     DB.Close 

    'Set RS = Nothing 
    Set DB = Nothing 
End Sub 

я также пытался:

Set DB = DBEngine.CreateDatabase("D:\tblImport11.accdb", DB_LANG_GENERAL) 

Это также дает ту же ошибку

Answer 1

DB_LANG_GENERAL является неправильным параметром. Использование:

Set DB = DBEngine.CreateDatabase("D:\tblImport11.accdb", dbLangGeneral)