รบกวนดูให้หน่อยครับ Error การวนลูปเพิ่มค่าทีละรายการลง DataGridView ครับ

temp_VacID = DataGridView1.Rows(i).Cells(i).Value

'========== ส่วนเพิ่มรายการวัคซีนลง DataGridView =============       
Dim i As Integer = 0    
For i = 0 To DataGridView1.Rows.Count - 1      
    Dim temp_VacID As String = ""         
    temp_VacID = DataGridView1.Rows(i).Cells(0).Value           
    If tb_vTypeID.Text = temp_VacID Then             
    MessageBox.Show("คุณเลือกรหัสวัคซีนซ้ำกรุณาเลือกใหม่", "Error", MessageBoxButtons.OK,  MessageBoxIcon.Error)               
     bt_searchVaccine.Focus()                
     tb_vTypeID.Clear()               
     tb_vTypeName.Clear()               
     tb_qty.Clear()               
Exit Sub         
End If      
Next      
DataGridView1.Rows.Add(New String() {tb_vTypeID.Text, tb_vTypeName.Text, tb_qty.Text})