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