この例では、Field オブジェクトのダイナミック Optimize プロパティの機能を示します。Pubs データベース内の Authors テーブルの zip フィールドには、インデックスが作成されていません。zip フィールドの Optimize プロパティを True に設定すると、ADO によってインデックスが作成され、Find メソッドのパフォーマンスが向上します。
Sub Main()
OptimizeX
End Sub
Public Sub OptimizeX()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient 'Enable index creation
rst.Open "SELECT * FROM Authors", _
"DSN=Pubs;Provider=MSDASQL;uid=sa;pwd=;", _
adOpenStatic, adLockReadOnly, adCmdText
rst!zip.Properties("Optimize") = True 'Create the index
rst.Find "zip = '94595'" 'Find Akiko Yokomoto
Debug.Print rst!au_fname & " " & rst!au_lname & " " & _
rst!address & " " & rst!city & " " & rst!State
rst!zip.Properties("Optimize") = False 'Delete the index
rst.Close
End Sub