Sub Search_Click()

Dim oFile As clsD3File

Dim oIndex As clsD3Index

Dim sSearch As String

OpenConnection ' Subroutine to establish connection

Set oFile = oConn.brOpenFile("customers")

Set oIndex = oFile.brRoot("a1")

' Retrieve a search criteria from text box

sSearch = Text2.Text

Combo1.Clear

' A combo box will contain all customers with

' a name beginning with search criteria

Do While oIndex.brFindNext(sSearch)

Combo1.AddItem oIndex.brIndexKey

Loop

oConn.brCloseFile oFile

CloseConnection ' Subroutine to close connection

End Sub