In going thru the Microsoft Jet Engine Programmer's Guide
(3.0) I found a (sort of) solution.  It shows a foxpro
solution (Page 312 - Maintaining Links).  So I tried the
following code.
'******************************************************
' Code from Book - It Works I tried it
'******************************************************
 Set dbsCurrent = OpenDatabase
("C:\AccessJet\Samples\Chap08\Jet_Sampl97.mdb")
    dbsCurrent![LostLink] _
        .Connect = "FoxPro 3.0"
& ";DATABASE=C:\AccessJet\Samples\Chap08\LostLink"
    dbsCurrent.TableDefs![LostLink].RefreshLink
'******************************************************

'******************************************************
'  My Code
'******************************************************
    Dim db As Database
    Set db = CurrentDb

    db!aSa_AuditMaster _
        .Connect
= "DATABASE=C:\Tc_AuditData\Auditor_AuditData.mdb;TABLE=aS
a_AuditMaster"
    db.TableDefs!aSa_AuditMaster.RefreshLink

'******************************************************
'  Problem - Error Message #3170
'******************************************************

Received "Couldn't Find Installed ISAM" error message.  
Anyone have a solution?

Thanks;

Dean

If you're connecting to a Jet database, you don't need to specify an ISAM
name, but you do need to include the semicolon delimiter, so the Connect
property should be:
  .Connect = ";DATABASE=C:\Tc_AuditData\Auditor_AuditData.mdb ...etc...

----
Simon Lewis