problemas formato a celdas en datagrid

[Totto3]

en una aplicacion VB.NET

Tengo 2 winform , del primero paso ciertos valores a un datatable del segundo.
en el segundo tengo un datagrid el cual lo lleno desde una consulta sql.

luego de llenar el grid, hago una comparacion de la filas de este con las filas del datatable si los valores son iguales les doy un formato a las filas del grid para que no me deje seleccionar las filas que ya existen en el datatable, bien el problema es que esto si logro hacerlo la primera vez que llamo al formulario 2, pero en la segunda vez, se abre el formulario y hago todo el proceso de comparacion, aparentemente se formatean las lineas pero al visualizar el resultado en el grid no han surtido efecto...que puede estar pasando ??

el codigo del boton del form1 es el siguiente:

FormEnvio.dtagregar = ds.Tables("envios")
FormEnvio.ShowDialog()


el codigo del form2 es el siguiente:

public dtagregar as datatable

sql="SELECT envio,cliente,fecha,valor from envios order by envio where clienteid=1005"

Me.DGEnvio.DataSource = getdatos.execute_reader(Sql)

If dtagregar.Rows.Count > 0 Then
For Each row In dtagregar.Rows
For x = 0 To DGEnvio.Rows.Count - 1
If row("envio") = Me.DGEnvio.Rows(x).Cells("envio").Value Then
Me.DGEnvio.Rows(x).ReadOnly = True
Me.DGEnvio.Rows(x).DefaultCellStyle.BackColor = Color.Cyan
End If
Next
Next
End If