Private Sub Form_Open(Cancel As Integer)
Komut0
End Sub
Sub Komut0()
Dim i As Integer
Dim rs As New ADODB.Recordset
rs.Open "tblTaksit", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Dim asd As Integer
If rs.EOF <> True Then
Do
Select Case rs("Tarih")
Case Is < Date
asd = asd + rs("TaksitTutar") * "0,0016" * (Date - rs("Tarih"))
End Select
rs.MoveNext
Loop Until rs.EOF
End If
Me.txtGecikenTaksit = asd
Set rs = Nothing
End Sub

bu senin şu andaki verilerini tablodaki tüm verilere göre toplamı alır ancak burda bir çok kişi olacağını varsayarsak bir sonraki aşamada bu kodu kişi kayıtlarına göre süzdürmelisin