vb数据备份与恢复，急！

Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    Text1.Text = CommonDialog1.FileName
End SubPrivate Sub Command2_Click()
    BackupDatabase
End SubPublic Sub BackupDatabase()
Dim s_path, s_dataexport As String
's_path = App.Path
Me.MousePointer = 11   '设置鼠标指针形状s_dataexport = "backup database zc to disk='" & CommonDialog1.FileName & "'"
If CommonDialog1.FileName <> "" Then
    Conn.BeginTrans
    Conn.Execute s_dataexport
    Err.Number = 0
    If Err.Number = 0 Then
        Conn.CommitTrans
        MsgBox "数据备份成功！", vbInformation, "提示"
        MsgBox "数据备份文件存放路径:" & CommonDialog1.FileName, vbOKOnly, "提示"
        Unload Me
    Else
        Conn.RollbackTrans
        MsgBox "数据备份失败！请检查数据库是否正在打开！", vbCritical, "提示"
    End If
    'Conn.Close
    'Set cn = Nothing
    Me.MousePointer = 1
Else
    MsgBox "请选择备份路径！"
    Me.MousePointer = 1
End If
End Sub这是我的备份代码，运行的时候提示了“数据备份成功”，但是在文件夹下却没有备份的时候保存的那个文件。这是怎么回事儿？