this code gives me error of... Index was out of range

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(i) = dt.Rows(i)("Emp_ID")
            DataGridView1.SelectedRows(i).Cells(i) = dt.Rows(i)("Emp_Name")
            DataGridView1.SelectedRows(i).Cells(i) = dt.Rows(i)("Day_Dat")

            i = i + 1
        Next


is there a problem clear here ? :(