设置Access数据库的使用期限

1、新建一个 窗体1

2、在 窗体1 的设计视图中，点击 查看Visual Basic代码

3、输入以下代码：

Private Sub Form_Load()
    '在2013-08-28到期
    If Now > "2013-08-28" Then
        MsgBox "系统已经超过使用期限，请联系作者"
        '关闭数据库
        Application.CloseCurrentDatabase
    End If
End Sub

4、在 文件 - 选项 - 当前数据库 - 显示窗体中 选择 窗体1

PS:此方法只能防君子，不能防小人