how do I fix the error "Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index

Imports CrystalDecisions.CrystalReports.Engine
Imports MySql.Data.MySqlClient
Public Class referralview

    Private Sub referralview_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strsql As String
        strsql = "select *  from report4 where cdate = " & List.DataGridView1.SelectedRows(0).Cells(0).Value.ToString & " order by cdate desc"
        Dim cmd As New MySqlCommand
        Dim adpter As New MySqlDataAdapter
        Dim dt As New DataTable

        With cmd
            .CommandText = strsql
            .Connection = List.connect
        End With

        With adpter
            .SelectCommand = cmd
            .Fill(dt)

        End With
        Dim crystal As New CrystalReport4
        crystal.SetDataSource(dt)
        CrystalReportViewer3.ReportSource = crystal
        CrystalReportViewer3.Refresh()
    End Sub
End Class