Access数据库编程，提示Gif89a.dll损坏，怎么办

想实现单击窗体中的命令按钮后，将“Xs”表中Flag字段的值加1。

Option Compare Database
Public ws As DAO.Workspace
Public db As Database
Public rs As Recordset
Public fd As Field

Private Sub Command1_Click()
  Do While Not rs.EOF
      rs.Edit
      fd = fd + 1
      rs.Update
      rs.MoveNext
  Loop

End Sub

Private Sub Command2_Click()
  rs.Close
  db.Close
  Set rs = Nothing
  Set db = Nothing
  DoCmd.Close
End Sub

Private Sub Form_Load()
  Set ws = DBEngine.Workspaces(0)
  Set db = ws.OpenDatabase("dbA")
  Set rs = db.OpenRecordset("Xs")
  Set fd = rs.Fields("flag")
End Sub

提示：“Microsoft Office Access数据库或项目包含一个文件“Gif89a.dll”版本1.0. 的丢失的或损坏的引用。”

是不是我的Access不完整？还是我哪儿写错了？

VBA中的DAO引用已设置。

万分感谢！