主题：求高效代码

以下为一段求12个月逐月平均人数之和的代码,测试中统计500人需要3秒,请问有没有高效的写法呢?

Dim ts As Integer '当月天数
Dim kssj As Date=#01/01/2013#
Dim monavg As Double ' 月平均人数
For m As Integer=0 To 11 '月
    ts= ts+Date.daysinmonth(kssj.year, kssj.month)
    For t As Integer=1 To Date.daysinmonth(kssj.year,kssj.month) '从开始时间起逐天计算
        rs=rs+DataTables("zzjbqk").compute("count(姓名)","[人员类型] like '机关%' And [单位代码] Like '"& dwdm &"%' and [调入时间]<#"& kssj &"#") '逐天累加人数至全月
        kssj = kssj.adddays(1)
    Next
    monavg=monavg+rs/ts'逐月平均人数和
    ts=0
    If kssj>#12/21/2013# Then '如果开始时间>截止时间
        Exit For
    End If
    rs=0
Next

月平均人数，为当月每天在职人数和/天数

还差一个变量:dim rs as integer '人数

这段代码效率太低，想请教有没有更高效的写法。

逐天累计职工人数，每个月算一次平均人数，求12个月的平均人数之和

狐爸帮助里说，把查询和赋值分开，我也不知道该怎么分了，貌似也分不开