таблица абонентов ей принадлежит таблица счетчиков связанных по полю абонент и таблица счетчиков их может быть несколько
как из VB перебрать таблицу счетчиков сложить все конечые показания и отнять начальные * тариф

Public Function Summa(КоличЧел, СправкаНач, СправкаКон, ТекущГод, ТекущМес, НаличиеДоговора, ДоговорС, Счетчик) As Currency


If НаличиеДоговора = False Or IsNull(ДоговорС) Then
Exit Function
End If


Dim dn, dk, dt, Dogovor
dt = Format(DateSerial(ТекущГод, ТекущМес, 1), "yyyy-mm")
dn = Format(СправкаНач, "yyyy-mm")
dk = Format(СправкаКон, "yyyy-mm")
Dogovor = Format(ДоговорС, "yyyy-mm")

''''''''''''''''''''''''''''''''''''''''''''''''''
If IsNull(СправкаНач) Or IsNull(СправкаКон) Then
GoTo a
End If

''''''''''''''''''''''''''''''''''''''''''''''''''
If dt >= dn And dt <= dk Then
Exit Function
End If

'''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''
'Запрос на ОПЛАТУ У АБОНЕНТА

If НаличиеДоговора = True And Dogovor <= dt Then

If Счетчик = False Then


Else
Тут нужно обратится к связанной таблице счетчичики вытащить показания

End If
End If
End Sub

а что мешает сделать это запросом?

это запросом можно зачем перебирать??
конструктор запросов, там конечно своеобразный , хотя нет Каноничный :)

(1) Омг, стрелять таких писателей...