楼主,你的代码不应该只用贴图的方式,也应该直接复制粘贴上来,否则别人想帮你,还得重新敲一次?
.Compute("Count(姓名)", dc.name & "= True and 姓名 = '" & Tables("人员表").Current("姓名") & "'")
更好的提问方式应该将你的这个表和代码一起发上来。