1. Khởi tạo cơ sở dữ liệu.
Cấu trúc:
Set db = ws.CreateDatabase (name, locale,
options)
Trong đó:
Db: là biến có kiểu là Database
Ws: là biến có kiểu Workspace
Name: tên csdl cần tạo
Locate: chọn ngôn ngữ sử dụng và mật khẩu
csdl
Option: lựa chọn phiên bản bộ máy csdl

Dim Ws as dao.workspace
Dim db as dao.database
VÝ dô 1:
Set db = ws.CreateDatabase("Newdb.mdb",
dbLangGeneral, dbEncrypt)
VÝ dô 2:
Set db = ws.CreateDatabase("NewDB.mdb",
dbLangGeneral & ";pwd=Password”
, dbEncrypt)

2. Khëi t¹o Table
Set TB = DB.CreateTableDef (name)
Trong ®ã:
TB: lµ biÕn cã kiÓu Tabledef
Name: tªn b¶ng cÇn t¹o
VÝ dô:
Dim tb as dao.tabledef
Set tb =