access用DAO創建索引

在access中用DAO創建索引：

 On Error GoTo Err_索引
    Dim db As DAO.Database
    Dim tb As DAO.TableDef
    Dim ind As DAO.Index
    Set db = CurrentDb
    Set tb = db.TableDefs("員工信息")
'    創建索引
    Set ind = tb.CreateIndex("索引")
'    爲索引添加字段
    ind.Fields.Append ind.CreateField("姓名")
    tb.Indexes.Append ind
    MsgBox "索引創建成功！"    Exit Sub
Err_索引:
    MsgBox Err.Description, , "齣錯"