スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文　CREATE TABLE テーブル名 
　　　(フィールド1 データ型, フィールド2 データ型,・・・);

CREATE TABLEステートメントを使用して、テーブルを作成します。既に同じ名前でテーブルが存在する場合には、エラーとなります。
アクションクエリを実行する場合には、SQLステートメントを引数に指定しDatabaseオブジェクトのExecuteメソッドを使用します。

●サンプル●
'テーブルを作成する
Public Sub Sample()

    Dim myDB As Database
    Dim mySQL As String

    'SQLステートメントを定義する
    mySQL = "CREATE TABLE 商品テーブル " & _
            "(商品コード NUMBER ,商品名 CHAR, 単価 NUMBER);"

    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    'SQLを実行する
    myDB.Execute mySQL

End Sub

●補足●
実行すると、新規テーブルとして［商品テーブル］が作成されます。