'**注册库存在，判断是否已经注册，如已注册启动主窗体，如未注册启动注册窗体**
dbEncrypt.dbExplain (sPath & "\***.***") '数据库解密
Set ws = DBEngine.Workspaces(0)
Set db = ws.OpenDatabase(sPath & "\***.**")
Set rst = db.OpenRecordset("***")
rst.MoveFirst
If rst.Fields("***") = 1 Then
***.Show‘启动主窗体
Else
***.Show‘启动注册窗体
End If
rst.Close
db.Close
ws.Close
dbEncrypt.dbEncrypt (sPath & "\***.**") '加密数据库
End If
'********************将时间改会原来时间************************
Date = DateTemp + (Date - MyDate)
