Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
        Me.BindingContext(DS.Tables("customers")).Position = 0
        DisplayCurrentRecord()
    End Sub

    Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNext.Click
        Me.BindingContext(DS.Tables("customers")).Position += 1
        DisplayCurrentRecord()
    End Sub

    Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious.Click
        Me.BindingContext(DS.Tables("customers")).Position -= 1
        DisplayCurrentRecord()
    End Sub

    Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click
        Me.BindingContext(DS.Tables("customers")).Position = Me.BindingContext(DS.Tables("customers")).Count - 1
        DisplayCurrentRecord()
    End Sub