Dim db As Database出错?在线结帖!!

ERR:未定义的数据类型
代码如下:Function ExecuteSql(strSqlCmd As String)
    Dim db As Database, qr As QueryDef    Set db = CurrentDb()
    Set qr = db.CreateQueryDef("dummy", strSqlCmd)

    qr.Execute
    qr.Close
    DoCmd.DeleteObject acQuery, "dummy"
    Set db = Nothing

End FunctionDatabase不是标准型吗? 要在什么地方声明Database类型?