Public ch As Recordset
Dim fld As String, Tline As String, Logger As String, Fbuffer As String, tot As Double
Dim rr As Recordset, RT As Recordset
Dim db As Database
Set db = CurrentDb
'-----------------------------------------------------------------------------------
' Clear the...