הקוד
יצירת קובץ mdb ריק:
Dim db As DAO.Database Set db = DBEngine.CreateDatabase(DBPath, dbLangGeneral)
יצירת טבלה:
Dim sSql As String Dim db As Database Set db = OpenDatabase(DBPath) sSql = "CREATE TABLE TableName(FiledCode COUNTER PRIMARY KEY,FieldText TEXT(20))" db.Execute sSql db.Close Set db = Nothing
כאשר DBPath זהו הנתיב של הקובץ שכולל את שם הקובץ.
