Access VisualBasic Script

Sub TestTransferSQLDatabase()
    DoCmd.TransferSQLDatabase _
        Server:="ServerName", _
        Database:="Pubs", _
        UseTrustedConnection:=True, _
        TransferCopyData:=False
End Sub