老师，做了一个数据库备份，然后下载到本地电脑，下载完成后关闭本地电脑应该怎么写呢？

Dim cn As Connection = Connections("外部数据")
Dim lx As Integer = cn.SourceType
If lx = 2 Then
    Dim str As String = cn.ConnectionString
    Dim mc As String
    \'获取外部数据源名称
    For Each s As String In str.split(";")
        If s.StartsWith("Initial Catalog") Then
            mc = s.split("=")(1)
        End If
    Next
    \'备份数据库到服务器E:\\FTP\\备份
    Dim bc As String = format(Date.now,"yyyyMMddHHmmss") & ".bak"
    Dim bf As String = "E:\\FTP\\备份\\" & bc
    Dim cmd As New SQLCommand
    cmd.C ommandText = "use master;BACKUP DATABASE " & mc & "  TO DISK = \'" & bf & "\'  With FORMAT,CHECKSUM;"
    cmd.C
    cmd.ExecuteNonQuery()
    \'下载备份到本地电脑
    Dim ftp1 As new ftpclient
    ftp1.host=

    ftp1.Account = 
    ftp1.password = 
    If ftp1.Download("\\备份\\" & bc,"G:\\0软件开发\\数据备份\\" & bc,True) = True Then
        Messagebox.show("备份到本地成功!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("备份到本地失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End  If