求助数据库使用期限

Dim stDocName As String
Dim stLinkCriteria As String
Dim AB, AC, AG, AV '定義系數
AB = #8/30/2009#   '系數=日期
AC = "你的數據庫還有" & AB - Date & "天過期,請盡速聯絡系統設計員" '定義信息框之內容
AE = "你的數據庫已過期,需要重新設計系統"
AG = "wangwulong_qe@yahoo.com.cn" '定義信息框之文字
AV = "請速通知你的管理員設置,系統內部數據錯誤"
If Date >= AB Then '條件式
 MsgBox Prompt:=AE, _
        Title:=AG, _
        Buttons:=vbExclamation '條件為假時執行文字提示,輸出不同的選取項可以改變不同彈出框
    DoCmd.Quit
   
    Else
     If AB - Date < 70 And AB - Date > 40 Then '條件假如小於40天時
    MsgBox Prompt:=AV, _
        Title:=AG, _
        Buttons:=vbExclamation '條件為假時執行文字提示,輸出不同的選取項可以改變不同彈出框
 DoCmd.OpenForm "背景"
  Else
    If AB - Date < 40 Then '條件假如小於40天時
    MsgBox Prompt:=AC, _
        Title:=AG, _
        Buttons:=vbExclamation '條件為假時執行文字提示,輸出不同的選取項可以改變不同彈出框
  DOCMD.OPENFORM"背景"
    Else