Problemas con un Remove error!!!!!!!!!!!!!!!!!!!!!!!!!!

Hola !!!
Mi problema es que tengo una consulta la recorro con un for qie tiene un
if
dentro si la condicion se cumple lo que quiero es eliminar un dato de la
consulta para que asi me los vaya filtrando. el problema es que cuando
hace
la primer comparacion se rompe en el next y me manda este (maldito) error:
Collection was modified; enumeration operation may not execute.

esta es una partecita del codigo
For Each r In tbl1.Rows
f1 = r("fecha")
id1 = r("idmaestro")
tipo1 = r("tipo")

For Each s In tbl2.Rows
f2 = s("fecha")
id2 = s("idmaestro")
tipo2 = s("tipo")

If f1.Ticks < f2.Ticks And f1.Day = f2.Day Then

MsgBox(f1)
MsgBox(f2)
clase.borra1(id1, tipo1, f1)
clase.borra4(id2, tipo2, f2)

tbl1.Rows.Remove(r)
tbl2.Rows.Remove(s)
End If
Next
Next

Creo que me volvere loca porque ya lo intente todo GRACIAS!! si alguien me
ayuda