Duda acerca de Eliminacion de registros con SQL

arkam20
10 de Julio del 2002
Hola a todos, mi duda es acerca de si esta bien el procedimiento anexado abajado, en mi formulario tengo varios campos de 2 tablas distintas: Usuario e Historial, las cuales las tengo unidas de uno a muchos por el telefono (Usuario a Historial), si elimino el registro usuario, es decir elimino con todo y telefono, tiene borrar todo su historial, al ejecutar el procedimiento (Que se realiza al pulsar el boton eliminar), la primera vez me dice:" La operacion no esta permitida si el objeto esta cerrado", presiono OK, vuelvo a presionar el boton de eliminar y esta vez no me dice nada y borra todo el historial referente al numero de telefono, es decir hace lo que tiene que hacer, que esta mal en el procedimiento?, que me recomiendan para mejorarlo o si de plano no es la manera de hacerlo?, estoy utilizando la biblioteca ADO (adoDC, etc)

Private Sub doEliminarUsuarios()
On Error Resume Next

If MsgBox("Deseas eliminar el registro", vbQuestion + vbYesNo) = vbYes Then
With dataADOHistorial
.CommandType = adCmdText
.RecordSource = "Delete from historial where telefono = '4351080'"
.Refresh
End With
End If

End Sub