Access ADO |
Sub createACDBBase(path As String) Dim cat As New ADOX.Catalog cat.Create "Microsoft.ACE.OLEDB.12.0;Data Source=" & path Set cat = Nothing End Sub Sub t() 'DAO.CreateDatabase ActiveWorkbook.path & "\TST.ACCDB", DAO.dbLangCyrillic createACDBBase "C:\users\......\documents\TST.ACCDB" End Sub