Private Sub showCurr()

'Shows the current position of the record in binding context

Dim curPos As String

curPos = (Me.BindingContext(dsNew, "ProductCategory").Position + 1).ToString _

        & " of  " & Me.BindingContext(dsNew, "ProductCategory").Count.ToString

End Sub

Private Sub moveNext()

Dim curPos As String

Me.BindingContext(dsNew, "ProductCategory").Position = _

    (Me.BindingContext(dsNew, "ProductCategory").Position + 1)

curPos = (Me.BindingContext(dsNew, "ProductCategory").Position + 1).ToString _

        & " of  " & Me.BindingContext(dsNew, "ProductCategory").Count.ToString

End Sub

Private Sub movePrevious()

Dim curPos As String

Me.BindingContext(dsNew, "ProductCategory").Position = _

(Me.BindingContext(dsNew, "ProductCategory").Position -1 1)

curPos = (Me.BindingContext(dsNew, "ProductCategory").Position + 1).ToString _

        & " of  " & Me.BindingContext(dsNew, "ProductCategory").Count.ToString

End Sub

Private Sub moveFirst()

Dim curPos As String

Me.BindingContext(dsNew, "ProductCategory").Position = 0

curPos = (Me.BindingContext(dsNew, "ProductCategory").Position + 1).ToString _

            & " of  " & Me.BindingContext(dsNew, "ProductCategory").Count.ToString

End Sub

Private Sub moveLast()

Dim curPos As String

Me.BindingContext(dsNew, "productCatogory").Position = _

Me.BindingContext(dsNew, "ProductCategory").Count - 1

curPos = (Me.BindingContext(dsNew, "ProductCategory").Position + 1).ToString _

                        & " of  " & Me.BindingContext(dsNew, "ProductCategory").Count.ToString

End Sub