下記のコ−ドでデータベースを作成（Create)すると、インデックス（Index）は
重複ありとなります。これを重複なしにする方法を教えてください。
プロパディの中に.Uniqueとそれらしいものがあるのですが、、、？
よろしくお願いいたします。

Private Sub CreateMDB()
'MDBを作成
    Dim tbl As TableDef
    Dim idx As Index
    
    On Error Resume Next
    Kill txtMDB       '削除
    On Error GoTo 0
    '作成
    Set db = CreateDatabase(txtMDB, dbLangJapanese, dbVersion30)
    'テーブルを作成
    Set tbl = db.CreateTableDef("Table1")
    'フィールドを作成しFileldsコレクションに追加
    With tbl
        .Fields.Append .CreateField("zipno", dbText)
        .Fields.Append .CreateField("address1", dbText)
        .Fields.Append .CreateField("address2", dbText)
        .Fields.Append .CreateField("address3", dbText)
    End With
    'インデックスを作成　　　
    Set idx = tbl.CreateIndex("Index1")
    With idx
        .Fields.Append .CreateField("zipno")
    End With
    tbl.Indexes.Append idx
    '作成したテーブルを追加
    db.TableDefs.Append tbl
    
    db.Close '閉じる
    
    Set idx = Nothing
    Set tbl = Nothing
    Set rs = Nothing
    Set db = Nothing '開放

End Sub

# 「プロパディ」ではなく、「プロパティ(Property)」ですよね。

> プロパディの中に.Uniqueとそれらしいものがあるのですが、、、？

御想像のとおり、IndexオブジェクトのUniqueプロパティで設定できますよ。

> # 「プロパディ」ではなく、「プロパティ(Property)」ですよね。
>
> > プロパディの中に.Uniqueとそれらしいものがあるのですが、、、？
>
> 御想像のとおり、IndexオブジェクトのUniqueプロパティで設定できますよ。

ありがとうございます。その「Unique」をどこで、どうして使うのか分からない
（みつからない）のです。
「.」を打つと出てきますよネ、使えるプロパティなどが、、、色々やって見たのですが、、、。

魔界の仮面弁士さまのヒントで、運良く、いい方法を、はじめて気が付きました。
適当なところに、「ds.Unique」と打ち込み、Helpキーを押すと色々でてきます。
色々探して、使用例がみつかりました。

        Set idxNew = .CreateIndex("NewIndex")

        With idxNew
            .Fields.Append .CreateField("Country")
            .Fields.Append .CreateField("LastName")
            .Fields.Append .CreateField("FirstName")
            .Unique = True　　　'<---ここ
        End With

        .Indexes.Append idxNew
        .Indexes.Refresh

ありがとうございました。