Access - importar archivo txt mediante codigo

Hola,

Mi problema es el siguiente:
Quiero importar un archivo txt, hasta ahi todo correcto, lo que pasa es que si el archivo no existe (se puede dar el caso) quiero que me muestre un mensaje de error y no :

Se ha producido el error '3011' en tiempo de ejecución:

El motor de base de datos Microsoft Jet no pudo encontrar el objeto
'Informe......txt'.

Mi codigo es el siguiente:

Private Sub Informe_Anterior_Click()

Dim archivo As String

ruta = "C:\Datos\"
archivo = ruta & "Informe_" & Day(fecha_inf_ant) & "_" & Month(fecha_inf_ant) & "_" & Year(fecha_inf_ant) & ".txt"
If not exist (archivo) Then
MsgBox ("El informe no existe")
Else
DoCmd.TransferText acImportDelim, "Informe_tnos_interes", "Informe_Anterior", archivo, 0

End If

End Sub

Mira pon detras de ruta = lo siguiente y cuelga a ver que te pone

Msgbox "ruta:" & ruta

es que tal vez en las fechas te este poniendo / o talvez tengas que poner #

SAludos

Trata el error:

Private Sub Informe_Anterior_Click()
On Error GoTo err_NoExiste

Dim archivo As String

ruta = "C:\Datos\"
archivo = ruta & "Informe_" & Day(fecha_inf_ant) & "_" & Month(fecha_inf_ant) & "_" & Year(fecha_inf_ant) & ".txt"
DoCmd.TransferText acImportDelim, "Informe_tnos_interes", "Informe_Anterior", archivo, 0

salir_error:
Exit Sub

err_NoExiste:

If Err.Number = 3011 Then
Msgbox "El Informe No Exite"
Resume salir_error
Else
Msgbox Err.Description,,"Error Nº: " & Err.Number
Resume salir_error
End if

End Sub

Un saludo

Muchas gracias.

Va perfecto