How to make a form and code to only show 1 report per 1 enty data?

Question

Im using visualstudio 2010, ms access and crystal report 8.5. How to code only 1 report per 1 entry data? what i mean for 1 entry data are: 1: https://i.stack.imgur.com/y5R2C.jpg .

i have 6 entry data atm. this solution works, but it only shows 1st data entry, idk how to show 2nd or 5rd, etc per reportstack overflow link. Please let me know your answer completely if after the code, i still need to do that(stack overflow link). Thanks a lot.

My code (cant show other than first entry data):

Imports System.Data.OleDb
Public Class Laporanutama
Public CONN As OleDbConnection
Public CMD As OleDbCommand
    Public DS As New DataSet
    Public DA As OleDbDataAdapter
    Public RD As OleDbDataReader
    Public LokasiData As String
    Dim awal As String
    Dim akhir As String
    Dim ae As String

    Sub Koneksi()
        LokasiData = "provider=microsoft.jet.oledb.4.0;data source=distribusi.mdb"
        CONN = New OleDbConnection(LokasiData)
        If CONN.State = ConnectionState.Closed Then
            CONN.Open()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CR.ReportFileName = "BPL1.rpt"
        CR.WindowState = Crystal.WindowStateConstants.crptMaximized
        CR.RetrieveDataFiles()
        CR.Action = 1
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'lap1.Show()
        'CR.ReportFileName = "Stok.rpt"
        'CR.WindowState = Crystal.WindowStateConstants.crptMaximized
        'CR.RetrieveDataFiles()
        'CR.Action = 1
    End Sub
End Class

• //The other code that im trying to show 1 report per data entry are :

   Imports System.Data.OleDb
  Public Class LaporanBPL
  Public CONN As OleDbConnection
  Public CMD As OleDbCommand
  Public DS As New DataSet
  Public DA As OleDbDataAdapter
  Public RD As OleDbDataReader
  Public LokasiData As String
  Dim awal As String
  Dim akhir As String
  Dim ae As String
  
  
  Sub Koneksi()
      LokasiData = "provider=microsoft.jet.oledb.4.0;data source=C:\Users\ASUS\Documents\Visual Studio 2010\Projects\WindowsApplication14\WindowsApplication14\Database1.mdb"
      CONN = New OleDbConnection(LokasiData)
      If CONN.State = ConnectionState.Closed Then
          CONN.Open()
      End If
  End Sub
  
  
  Sub TampilTanggal()
  
      Call Koneksi()
      CMD = New OleDbCommand("select no_kkp from tb_bpl", CONN)
      RD = CMD.ExecuteReader
      Do While RD.Read
          ComboBox1.Items.Add(RD.Item(0))
      Loop
  End Sub
  
  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
      If ComboBox1.Text = "" Then
          MsgBox("Pilih dulu Tahunnya")
          Exit Sub
      Else
          CR.SelectionFormula = "({tb_bpl.no_kkp})=" & Val(ComboBox1.Text)
          CR.ReportFileName = "BPL1.rpt"
          CR.WindowState = Crystal.WindowStateConstants.crptMaximized
          CR.RetrieveDataFiles()
          CR.Action = 1
      End If
  End Sub
  
  Private Sub LaporanBPL_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Call TampilTanggal()
  End Sub
  
  Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
  
  End Sub
  

  End Class