HI
In your criteria you need to add a space between the first and second values and you need to add quotes around the text string
DCount("[projectid]","tbDV","[ProjectID] = " & [Reports]![rptProjectRecord].[projectid] And " [DVStatus]=" & chr(34) & "Approved" & chr(34))
The above should...