  ' ===================== Przyciski nawigacyjne ===========================
  Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As _
                  System.EventArgs) Handles btnFirst.Click
    CurrentRecord = 1
    FillARecord(CurrentRecord)
  End Sub

  Private Sub btnnext_Click(ByVal sender As System.Object, ByVal e As _
                 System.EventArgs) Handles btnNext.Click
    CurrentRecord += 1
    If CurrentRecord > LastRecord Then
      CurrentRecord = LastRecord
    End If
    FillARecord(CurrentRecord)
  End Sub

  Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As _
                 System.EventArgs) Handles btnLast.Click
    CurrentRecord = LastRecord
    If CurrentRecord < 1 Then
      CurrentRecord = 1
    End If
    FillARecord(CurrentRecord)
  End Sub

  Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As _
                   System.EventArgs) Handles btnPrevious.Click
    CurrentRecord -= 1
    If CurrentRecord < 1 Then
      CurrentRecord = 1
    End If
    FillARecord(CurrentRecord)
  End Sub

  Private Sub btnRead_Click(ByVal sender As System.Object, ByVal e As _
                 System.EventArgs) Handles btnRead.Click
    Dim response As String

    response = InputBox("Enter the record number:", _ 
            "Valid Record Numbers 1 through " & _                
            CStr(MyList.CurrentRecordCount))
    FillARecord(CLng(response))
  End Sub
