テーブルを新規に作成する場合は、CreateTableDefメソッドを使います。
　CreateTableDefメソッドを使って作成したテーブルは、CreateFieldメソッド
でフィールド名・データ型・サイズを設定します。

● 準備 ●

　サンプルプロシージャでは、「名簿テーブル」を作成して、次の3つのフィールド
を設定しています。

　氏名フィールド　　：テキスト型、フィールドサイズ30
　登録番号フィールド：数値型
　登録日　　　　　　：日付/時刻型

　標準モジュールに次のプロシージャを作成してください。
　DAOを使用していますので、[ツール(T)]メニューの[参照設定(R)]をクリック
すると表示される[参照設定]ダイアログボックスで、「Microsoft DAO 3.6
Object Library」をチェックしてください。
　サンプルプログラムを実行すると、「名簿テーブル」が作成されて、
デザインビューで開かれます。

● サンプル　●

Sub Sample()

    Dim db As Database
    Dim Newtb As TableDef

    Set db = CurrentDb

    Set Newtb = db.CreateTableDef("名簿テーブル")

    With Newtb
        .Fields.Append .CreateField("氏名", dbText, 30)
        .Fields.Append .CreateField("登録番号", dbInteger)
        .Fields.Append .CreateField("登録日", dbDate)
    End With

    db.TableDefs.Append Newtb

    DoCmd.OpenTable "名簿テーブル", acViewDesign

End Sub