Dim DB As DAO.Database

    Dim TB As DAO.TableDef

    Set DB = DBEngine.Workspaces(0).CreateDatabase(ПУТЬ & "tmp", dbLangCyrillic)

    'присоединю базы dbf к tmp.mdb

    Set TB = DB.CreateTableDef(имя_базы_без_DBF)

    TB.Connect = "dBase IV;DataBase=" & ПУТЬ

    TB.SourceTableName = имя_базы_без_DBF   ' или другое, например Таблица1

    DB.TableDefs.Append TB

    Set TB = Nothing

    DB.Close:   Set DB = Nothing