what is wrong in this 4 lines ?

Question

this code gives me error of
Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: index

        Dim i As Integer = 0

        For Each r As DataRow In dt.Rows
     
            DataGridView1.SelectedRows(i).Cells("emp_name") = dt.Rows(i)("Emp_Name")
            DataGridView1.SelectedRows(i).Cells("emp_id") = dt.Rows(i)("Emp_ID")
            DataGridView1.SelectedRows(i).Cells("date_") = dt.Rows(i)("Day_Dat")

            i = i + 1
        Next