Visual Basic - Doble error

Hola , a ver si alguien me puede ayudar con esto.
El problema es que tengo un programa que enlaza con la base de datos de otro , pero quiero hacer que si el enlace no es válido me de un error.El problema es que capturo el error , pero despues de Aceptar VB saca otro error igual.¿Cómo lo puedo arreglar?
Con este código capturo el error.

On Error GoTo error

Set BasePathAgenda = OpenDatabase("C:\....")
Set TablaPathAgenda = BasePathAgenda.OpenRecordset("Tabla")
Data4.DatabaseName = TablaPathAgenda.Fields("Campo")

error:
Select Case Err.Number
Case 3044
MsgBox "Error número : " & (Err.Number) & _
" Ruta de enlace no válida.", vbCritical, "Error de enlace."
Exit Sub
End Select

Gracias

Creo que debes poner un exit sub antes de la rutina de error, como lo tienes pasa dos veces por dicha rutina, al producirse el error y al terminar