Forms Data Controls :: Datagrid Datakeys Seem Not To Work Properly

I have a Datagrid one of the colums is a checkbox and when it is selected I' m supposed to update that row. I have a button to update this outside the Datagrid. It seems to work well for the first two rows but after that meaning starting 3 to any it just doesnt update no errors but doesnt update. When I look into the id it seems to be empty.

Private Sub btnInactivateAllSelected_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnInactivateAllSelected.Click
'
'Function declarations
Dim currentMethod As String = MethodBase.GetCurrentMethod.Name
'Object declarations
'Variable declarations
Dim ruleID As Guid = Nothing
Dim oRule As PSXSTL.Digecenter.Rule = Nothing
Dim changetext As String = Nothing
'Start Try...Catch statement
_moduleName = "btnInactivateAllSelected_Click"
Try
For Each item As DataGridItem In GroupDataGrid.Items
If CType(item.FindControl("chkApprovalCheck"), CheckBox).Checked = True Then
ruleID = GroupDataGrid.DataKeys(CInt(item.ItemIndex))
oRule = New PSXSTL.Digecenter.Rule(DirectCast(Session("CustomerID"), Guid), ruleID)
If oRule.Complete Then
oRule.RuleStatus = False
oRule.ActiveDate = Now.ToString
changetext = "On " + Now + " " + Session("FirstName") + " " + Session("LastName") + " deactivated the Rule."
If Not oRule.ProofReviewed Then
changetext = changetext & " PDF not viewed"
End If
LogEditHistoryItem(changetext, ruleID)
' Call
' added 10/19/2004 by Rob MacMorran
LogBulkOrderHistory(oRule)
oRule.Update()
End If
oRule.Dispose()
End If
Next
' Server.Transfer("customer_clientrules_results.aspx")
Catch ExceptionObject As Exception
'Write the exception out to the event log.
EventLogHelper.LogException(ExceptionObject, _moduleName, "Error occurred in " & _moduleName & "/" & currentMethod & ControlChars.CrLf & ExceptionObject.StackTrace, EventLogEntryType.Error, 55555)
Finally
'Cleanup
'Object disposal
If Not oRule Is Nothing Then
oRule.Dispose()
oRule = Nothing
End If
'Variable disposal
ruleID = Nothing
changetext = Nothing
'Function variable disposal
currentMethod = Nothing
End Try
Server.Transfer("customer_clientrules_results.aspx")
End Sub