Private Sub TestMoveMethods_Click()

Dim oIndex As clsD3Index

Dim oFile As clsD3File

Dim oCustName As New clsD3DynamicArray

Dim sCurrent As String

Dim i As Integer

OpenConnection ' Subroutine to establish connection

Set oFile = oConn.brOpenFile("customers")

Set oIndex = oFile.brRoot("a1")

Do While True

Select Case InputBox("F for First, L for Last, N for next, P for previous")

Case "F"

oIndex.brMoveFirst

Case "L"

oIndex.brMoveLast

Case "N"

oIndex.brMoveNext

Case "P"

oIndex.brMovePrevious

Case Else

Exit Do

End Select

Set oCustName = oFile.brReadV(oIndex.brIndexId, "organizationname")

MsgBox oCustName.brCString

Loop

CloseConnection ' Subroutine to close connection

End Sub