I have the code below in a routine
Dim dBase As Database
Dim rsSet As Recordset
Dim count As Integer
Dim SQL As String
Dim jobSQL As Currency
Dim rsJob As Recordset
Set dBase = CurrentDb
SQL = "SELECT count(recordid) FROM tblHistory WHERE tblhistory![recordid] = '" _
&...