como valido si un registro esta usado en otra tabla?

[downloadprg]

amig@s, estoy necesitando ayuda con un proyecto que estoy creando en visual basic 6.0, lo que me falta hacer es lo siguiente; tenga activo lo que es integridad referencial o algo así (no se puede borrar un registro si esta usado en otra tabla), bueno lo que quiero hacer es que cuando intento borrar un registro y este este usado en otra tabla me salte un error diciendo q no se puede, pero no se como validar si se esta usando o no, a continuación dejo el código del botón borrar
(uso objetos ADO)
agradezco su ayuda..

Private Sub borrarcmd_Click()
Dim valor As String
If MsgBox("Esta seguro de borrar el chofer?? " + nombretxt.Text, vbYesNo + vbExclamation) = vbYes Then
adochofer.Recordset.Delete
adochofer.Recordset.MovePrevious

If adochofer.Recordset.BOF = True Then
adochofer.Recordset.MoveFirst
End If
End If

End Sub