Optimize Property-Dynamic (ADO)
Specifies whether an index should be created on a field.
An index can improve the performance of operations that find or sort values in a Recordset. The index is internal to ADO; you cannot explicitly access or use it in your application.
To create an index on a field, set the Optimize property to True. To delete the index, set this property to False.
Dim rs As New Recordset Dim fld As Field rs.CursorLocation = adUseClient 'Enable index creation rs.Fields.Append "Field1", adChar, 35, adFldIsNullable rs.Open Set fld = rs.Fields(0) fld.Properties("Optimize") = True 'Create an index fld.Properties("Optimize") = False 'Delete an index