CREATE TABLE テーブル名(フィールド名1 データ型, フィールド名2 データ型,･･･);
Sub Sample1()
Sub Sample1()
Dim myDB As Database
Dim mySQL As String
mySQL = "CREATE TABLE tbl勘定科目(科目コード NUMBER, 科目名 CHAR);"
Set myDB = CurrentDb
myDB.Execute mySQL
myDB.Close
Set myDB = Nothing
