A bit roundabaout, but it should work (haven't tested it yet):
Code:
' This should create a virtual table where each separate Serial Number in Atlanta, GA appears once (that's what DISTINCT does)
Set rsTemp = CurrentDb.OpenRecordset("SELECT DISTINCT Serial Number FROM dbo_HHUsageHistorical WHERE AreaDescription = 'Atlanta, GA'", dbOpenSnapshot)
rsTemp.MoveLast
rsTemp.MoveFirst
' RecordCount gives the number of records in the table
iL = rsTemp.RecordCount
rsTemp.Close
Naturally, you'll have to define rsTemp as a recordset, and iL as a long integer, and apply the latter as required.