Dim cnString As String Dim tdf As TableDef cnString = "FILEDSN=n:\Test1.dsn" For Each tdf In db.TableDefs '''If tdf.Attributes = dbAttachedODBC Then If tbDef.Attributes And (dbAttachedTable Or dbAttachedODBC) Then tdf.Connect = cnString td…