Public Function NewLinkedExternalTableMdb() Dim strTargetDB() As String Dim strProviderString() As String Dim strSourceTbl() As String Dim strLinkTblName() As String Dim catDB As ADOX.Catalog Dim tblLink As ADOX.Table Dim tmpLink As ADOX.Table Dim i As Integer Dim j As Integer Set catDB = New ADOX.Catalog catDB.ActiveConnection = CurrentProject.Connection i = catDB.Tables.Count ReDim strTargetDB(i)