MS Access | DAO | Создать новую БД

'создание новой базы через DAO

Sub CreateDB_DAO()

Dim newDB As Database

'проверка на наличие такой бд

If Dir(CurDir & "\test.mdb") <> "" Then

   Kill CurDir & "\test.mdb"

End If

Set newDB = CreateDatabase(CurDir & "\test.mdb", dbLangCyrillic)

End Sub