Visual Basic - Error al borrar registro en Datagrid

Hola amigos

Tengo un problema con el datagrid, el éste muestro los registros de una tabla de access, y cuando voy a eliminar un registro con "Supr" (lo hago en el evento BeforeDelete, me sale un mensaje de error:

Row cannot be located for updating. Some values may have been changed since it was last read....

Como tengo dos tablas relacionadas, debo eliminar el registro 1ºen una y después en la otra,...

Private Sub DataGrid1_BeforeDelete(Cancel As Integer)
Dim sqldel As String
Dim sql As String
Dim val As Integer

val = DataGrid1.Columns(1)
sqldel = "Delete * from DetallesFacturas where idfactura=" & val & ""
cnBase.Execute sqldel
sql = "Delete * from Facturas where nombrecompleto= '" & Label1.Caption & "' and idfactura=" & val & ""
cnBase.Execute sql

End Sub

¿Qué debo hacer para que esto no pase?

Gracias por su atención

Solia tener el mismo error, me lo mostraba solo en algunas ocasiones, me di cuenta de que si habia 2 o mas registros esactamente iguales me borrarba todos, asi que lo resolvi poniendole un autonumber a la tabla donde tenia los registros. espero que esto te ayude.