p; "备份卡" & Left$(File1.FileName, Len(File1.FileName) - 3) & "BAK"
                If Dir(Mydatabase) <> "" Then
                    MsgBox "今天的备份已完成！"
                Else
                    FileCopy Trim(Label1.Caption), Mydatabase
                    MsgBox "数据备份成功！"
                    key = Date & "备份卡" & Left$(File1.FileName, Len(File1.FileName) - 3) & "BAK"
                    Set itmX = ListView1.ListItems.Add(, , key, 1)
                End If
            End If
        End If
        If Option2.Value = True Then
            '恢复数据库
            If File1.ListCount <> 0 Then
                FileCopy ListView1.SelectedItem, App.Path & "\books.mdb"
                Me.MousePointer = 0
                MsgBox "数据已恢复完毕！"
            Else
                MsgBox "请选择要恢复的数据！"
            End If
        End If
    End Sub
    Private Sub Command2_Click()
     frm_main.Enabled = True
     Unload Me
    End Sub