Function AddReg(csRecordset As Recordset, FieldIndex As Integer) As Long
        Dim lData&

  Call csRecordset.MoveFirst
  
  Do While Not csRecordset.EOF
    If IsNumeric(csRecordset(FieldIndex)) Then
      lData = lData + CLng(csRecordset(FieldIndex))
    End If
  Loop

  AddReg = lData
End Function