You can also use the Select method you mentioned before to get an array of datarows that meet your criteria and then change the value. That should be faster than looping to find it.

Code:
Dim dr() As DataRow=DataTable1.Select(String.Format("IdCustomer={0}",var))
If dr.Length > 0 Then
   dr(0)("Erased")=False
End If