'display the current record in a dataset


Private Sub DisplayCurrentRecord()

        Dim intTotRecs As Integer
        '---get the total number of records in the DataSET
        intTotRecs = Me.BindingContext(DS.Tables("customers")).Count

        Dim intCurrentRecord As Integer
        '---get the current row in the DataSET
        intCurrentRecord = Me.BindingContext(DS.Tables("customers")).Position + 1

        lblRecords.Text = "Account " & intCurrentRecord & " of " & intTotRecs
    End Sub