VB实现软件试用期

 大家都知道共享软件都有它们的试用期，即给你一个固定的期限免费使用。   
 应有的功能：
    1）给定一个试用期限，在系统每次启动时会判断软件已经使用了几天，还有几天可以及启动的次数。
    2）当系统日期被修改成往日的日期后，系统能自动判别，禁止修改日期 ，不予正常启动。
    3)当试用期到，显示信息，不予启动程序。
    大致算法
    1)在系统第一次运行时，在一个隐蔽的地方(如“c:windows\system")建立一个用以记录系统信息的数据库文件如 日期date.mdb,使用一张表date,有三个字段first_time，last_times,times。其中fitst_time,为系统第一次启动时和日期，即使用期的第一天。last_time为系统最近一次启动的时间，而times为记录系统启动的次数。
    2)系统每次启动会检测当前的日期同last_time做比较。如果当前和日期(如2000/09/30)比last_time(如2000/10/01)还归，说明系统的日期被推后，显示信息，不予启动系统。反之，则转入第三步。
    3)取出数据库中的first_time,同当前的日期做减法运算，看所用的天数是否在使用天数是否在使用期限内。如果在，则转入第四步，否则显示信息，不予启动系统。
    4)修改数据库的list_time字段为当前的日期，显示系统已经使 用的情况，正常启动系统。
    好了，只要大家把date.mdb藏好了，不被发现就万事大吉了。而且你可以给这个数据库加上密码，然后把first_time.last_time.times的字段改个面目全非，就算有高手发现了数据库，破解了密码，他也不知道这个数据库是哪个软件的文件 。
    程序源码
    为你的VB项目建立一个工程,且在工程设置中，请以SUB main0启动程序。
    Sub maim()
    On ERROR GoTo error
    Dim WS As Workspace
    Dim DB As Database
    Dim TD As Tabledef
    Dim FLD As Field
    Dim IDX As Index
    Dim rd As Recordset
    '系统检测是否有有date.mdb文件，如果没有，则是系统第一次启动。则建立之
    If Dir(c:\wimdows\system\date.mdb")=""Then
       '注意在开始，你要确定工程引用了Mi-crosoft da