Sub RelinkDataPages(strPathToMDBFile As String)

    ' Automates Access to create a new data access page in the
    ' project file (.adp) from the links in the database (.mdb) file
    Dim ao As AccessObject
    Dim dp As DataAccessPage
    
    Dim objAccApp As Access.Application
    Set objAccApp = New Access.Application
    
    With objAccApp
        ' open the original MDB file
        .OpenCurrentDatabase strPathToMDBFile
        For Each ao In .CurrentProject.AllDataAccessPages
            
            ' Create the new path with the link from the existing page
            Set dp = Application.CreateDataAccessPage(ao.FullName, False)
            
            ' Modify the connection of the page to match the ADP's connection info.
            ' Using the .Connection or .AccessConnection property includes the
            ' Microsoft.Access.OLEDB.10.0 provider and will not work in the connection
            ' string of a data access page.  As a result, use the .BaseConnectionString
            ' property instead to get the basic information.

            ' If you are using SQL Server security, you will need to
            ' to concatenate the user name and password information
            ' for the page.
            dp.MSODSC.ConnectionString = CurrentProject.BaseConnectionString
            
            ' save the new page
            DoCmd.Save acDataAccessPage, dp.Name
            
            ' close the page
            DoCmd.Close acDataAccessPage, dp.Name
            
        Next
    End With
    
    ' cleanup
    Set ao = Nothing
    objAccApp.Quit
    Set objAccApp = Nothing
    
    MsgBox "Pages have been relinked"
End Sub
					

RelinkDataPages "<FullPathToDatabase>"