Problem Updating DB

[Justin]

I am trying to update a single row after a link in the datagrid is clicked,
here's the code:

Dim SelectedIndex As TableRow = e.Item
'Dim Index As String = SelectedIndex
Dim ID As TableCell = SelectedIndex.Cells(0)
Dim CellText = ID.Text.ToString()
Dim FoundRow(0) As DataRow
FoundRow = DataSet1.Tables("QueueMembers").Select("CustomerId = '" &
CellText & "'")

If FoundRow.Length = 1 Then
Dim StatusUpdate As DataRow = FoundRow(0)
StatusUpdate("Status") = "Complete"
Me.SqlDataAdapter1.Update(DataSet1, "QueueMembers")
Else
Label1.Text = "None"
End If

The problem is it is updating every row not just the one selected in the
datagrid.

Any ideas?

Thanks, Justin.