Access VisualBasic Script

Sub TestLinkTransferDatabase()
    DoCmd.TransferDatabase acLink, "ODBC Database", _
        "ODBC;DSN=DataSourceName;UID=username;PWD=pwd;LANGUAGE=us_english;" _
        & "DATABASE=yourDatabase", acTable, "Sales", "dboSales"
End Sub