' This Reference is seen in the References Dialog as 
' "Microsoft ADO Ext. 2.x For DDL and Security"
'************ Begin Function Code ************
Public Function ADOXTestLinkedTable( _
 cnnConnection As ADODB.Connection, _
 strTable As String) _
 As Boolean
 
 ' Comments : Tests the specified linked table to see if its link is valid
 ' Parameters: cnnConnection - open ADODB connection to the Jet Database
 ' strTable - name of the table to test
 ' Returns : True if the link is valid, False otherwise
 ' Source : Total Visual SourceBook 2000
 '
 Dim catTmp As New ADOX.Catalog
 Dim tblTmp As New ADOX.Table
 Dim strTmp As String
 Dim lngSaveErr As Long
 
 On Error GoTo PROC_ERR

 ' Open the catalog by setting its ActiveConnection property
 catTmp.ActiveConnection = cnnConnection

 ' Set a pointer to the table
 Set tblTmp = catTmp.Tables(strTable)

 If tblTmp.Properties("Jet OLEDB:Create Link") = True Then
   ' It is a linked table so try to open it by getting the
   ' name property of one it its fields. If the table's link
   ' is not valid (for example, the database it is pointing to
   ' is moved, deleted, or renamed) this call will fail. We
   ' Disable error handling to handle a potential failure.
   On Error Resume Next
   strTmp = tblTmp.Columns(0).Name
  
   ' Save the error number
   lngSaveErr = Err.Number
  
   ' Re-enable error handling
   On Error GoTo PROC_ERR

   ' If the save error number is not 0, an error occurred
   ' and we can assume that the link is invalid
   ADOXTestLinkedTable = (lngSaveErr = 0)
  End If
 
   ' Close the catalog to release resources
   Set catTmp = Nothing

PROC_EXIT:
 Exit Function

PROC_ERR:
 MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
  "ADOXTestLinkedTable"
 Resume PROC_EXIT

End Function
'************ End Function Code ************
'************ Begin Example Code ************
'To call the above function, all you need to do is open 
' a connection to the database.

  Dim cn As ADODB.Connection
  Set cn = New ADODB.Connection
 
  ' Open the connection
  With cn
    .CursorLocation = adUseServer
   .Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\Northwind.mdb"
  End With

  'Example code for ADOXTestLinkedTable
  Debug.Print ADOXTestLinkedTable(cn, "Categories")
'************ End Example Code ************"