Refresh report in reportviewer

Sub Loadreport()
        Dim strSeason = CStr(CbxAantalJaar.SelectedItem)
        Dim strDistrict = CStr(CbxLaatsteJaar.SelectedItem)
        'declare connection string
        Dim cnString As String = "Data Source=aa;Initial Catalog=bb;User ID=cc;Password=dd"
        Dim conReport As SqlConnection = New SqlConnection(cnString)
        Dim cmdReport As SqlCommand = New SqlCommand()
        Dim drReport As SqlDataReader
        Dim dsReport As DataSet = New studentout()
        Try
            conReport.Open()
            cmdReport.CommandType = CommandType.Text
            cmdReport.Connection = conReport
            cmdReport.CommandText = "Select Nr, Season, District, NOM, Prenom From SEP_OUT_TA_EtudiantOut where Season='" & strSeason & "' and District = '" & strDistrict & "'"
            drReport = cmdReport.ExecuteReader()
            dsReport.Tables(0).Load(drReport)
            drReport.Close()
            conReport.Close()
            Me.ReportViewer2.LocalReport.ReportEmbeddedResource = "GSLijsten.Report1.rdlc"
 
            'prepare report data source
            Dim rds As ReportDataSource = New ReportDataSource()
            rds.Name = "studentout_SEP_OUT_TA_EtudiantOut"
            rds.Value = dsReport.Tables(0)
            Me.ReportViewer2.LocalReport.DataSources.Add(rds)
 
            'load report viewer
            Me.ReportViewer2.RefreshReport()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            'check if connection is still open then attempt to close it
            If conReport.State = ConnectionState.Open Then
                conReport.Close()
            End If
        End Try
    End Sub