主题：备份到本地后关闭电脑

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

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