'===========================================================
'Funcion: fchecklinks
'Argumentos: 1
'Resultado: True or False
'Utilidad: Permite comprobar si la coneccion a la
'Base de Datos (Back-End) es correcta
'Modo de Uso: If Not fchecklinks("TablaVinculada") Then ...
'Autor: Juan Amador
'Fecha: Feb/03/2005
'===========================================================

Function fchecklinks(mTabla As String) As Boolean
    On Error Resume Next
    Dim dbs As Database
    Dim rst As Recordset
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset(mTabla)
    If Err.Number <> 0 Then
        fchecklinks = False
    Else
        fchecklinks = True
    End If
End Function