Tips118 - 主キーを設定しテーブル作成 PRIMARY KEY

作成例：
Dim DB As Database
Dim SQL As String
Set DB = DBEngine.Workspaces(0).OpenDatabase("C:\診察.mdb")
SQL = "CREATE TABLE T_患者(患者ID COUNTER PRIMARY KEY , 名前 TEXT (30) , 体重 DOUBLE , 脈拍 INTEGER)"
DB.Execute SQL, dbFailOnError

これを実行しAccessのデザインで見ると下記のようになりました。
患者ID COUNTER　：　オートナンバー型 　[主キー]　インデックス：はい（重複なし）