Create local backup of remote MS SQL database

I am trying to make a local backup (on my laptop's hard drive) of my remote SQL database.

I have this VB6 code that allows me to connect to my remote SQL database. It works fine:

-- begin code -------------------------------
    dim cnn As ADODB.Connection
    Set cnn = New ADODB.Connection
    cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=...;" _
            & "Initial Catalog=...;Data Source=...;" _
            & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
            & "Workstation ID=...;Use Encryption for Data=False;" _
            & "Tag with column collation when possible=False;User Id=...;PASSWORD=...;"
    If cnn.State = 1 Then
-- end code --------------------------------

An Expert Exchange expert recommended this link to help me move a SQL database:
http://www.dbazine.com/sql/sql-articles/sharma3

This link shows the following code to create a backup:

-- begin code --------------------------------
Dim oServer
Dim oDatabase
Dim oBackup
Dim sBAKFilePath

'change this to where ever you want to place your backup files, no trailing
'backslash, we add it below

sBAKFilePath = "C:\BackUp"

'we need a backup object in addition to the sqlserver one

Set oServer = CreateObject("SQLDmo.SqlServer")
Set oBackup = CreateObject("SQLDmo.Backup")
oServer.LoginSecure = True
oServer.Connect "(local)"

'this will do a full backup of every database except TempDB to a file


For Each oDatabase In oServer.Databases
    If UCase(oDatabase.Name) <> "TEMPDB" Then
        oBackup.Database = oDatabase.Name
        'remove any previous backup - same as using T-SQL with init
        oBackup.Initialize = True
        'dynamically create the name of the backup file
        oBackup.Files = sBAKFilePath & "\" & oDatabase.Name & ".bak"
        'set the action property as needed
        '0 = Full backup
        '1 = Differential
        '2 = Specified files only
        '3 = Log backup
        oBackup.Action = 0
        oBackup.SQLBackup oServer
    End If
Next

'clean up
Set oBackup = Nothing
oServer.DisConnect
Set oServer = Nothing
MsgBox "Database BackUps Done"
-- end code -----------------------------------

How can I combine these two code segments to create my local backup?