Optimize Property Example (VB)
This example demonstrates the Field object’s dynamic Optimize property. The zip field of the Authors table in the Pubs database is not indexed. Setting the Optimize property to True on the zip field authorizes ADO to build an index that improves the performance of the Find method.
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;", _
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