[5分]如何提高报表的处理速度？附源码

现有公司员工档案表tblemp和证件档案表tblzj,两张表的关系为1对多，也就是一个员工对应多本证件。

现在我想实现的功能是通过查询来体现每个在职员工的证书到位情况！

目前我的处理方法如下：

1、建立一个简单的判断函数ZjMark(),代码如下：

Public Function ZjMark(ByVal strFieldName As String, ByVal DA As String)
    Dim sql As String
    If DCount("yjzt", "tblzj", "daid='" & DA & "' and zjmc='" & strFieldName & "' and zjzt='有效'") = 0 Then
        ZjMark = ""
    Else
        sql = DLookup("yjzt", "tblzj", "daid='" & DA & "' and zjmc='" & strFieldName & "' and zjzt='有效'")
        Select Case sql
        Case "本人收回"
            ZjMark = "○"
        Case "单位借出"
            ZjMark = "□"
        Case "公司存档招标中"
            ZjMark = "★"
        Case "公司存档并备案"
            ZjMark = "▽"
        Case "公司存档"
            ZjMark = "√"
        Case "二建集团存档"
            ZjMark = "☆"
        Case ""
            ZjMark = "???"
        End Select
    End If
End Function

2、建立查询：证件核对清单

SELECT tblEmp.Gh AS 工号, tblEmp.Xm AS 姓名, DateDiff("yyyy",[csrq],Date()) AS 年龄, tblEmp.Zc AS 职称, tblEmp.Wt AS 用工状态, tblEmp.Zjgc AS 在建工程, zjmark("一级注册建造师",[daid]) AS 一级注册, zjmark("二级注册建造师",[daid]) AS 二级注册, zjmark("一级临时注册建造师",[daid]) AS 一级临时注册, zjmark("二级临时注册建造师",[daid]) AS 二级临时注册, zjmark("A类",[tblemp]![daid]) AS A类, zjmark("B类",[tblemp]![daid]) AS B类, zjmark("C类",[tblemp]![daid]) AS C类, zjmark("施工员",[tblemp]![daid]) AS 施工员, zjmark("质检员",[tblemp]![daid]) AS 质检员, zjmark("材料员",[tblemp]![daid]) AS 材料员, zjmark("统计员",[tblemp]![daid]) AS 统计员, zjmark("安全员",[tblemp]![daid]) AS 安全员, zjmark("资料员",[daid]) AS 资料员, zjmark("预算员",[daid]) AS 预算员, zjmark("造价员",[daid]) AS 造价员, tblEmp.Xl AS 学历, zjmark("注册造价工程师",[daid]) AS 注册造价工程师
FROM tblEmp
WHERE (((tblEmp.At)=True));
3、通过以上两个步骤，我实现的结果如下：

4、问题点在于查询及函数中用到大量的DLOOKUP，导致查询打开的速度很慢，请高手解答有无提高处理速度的办法？？？