Function TotalX(ID As Integer)
Dim Db As Database
Dim Rs As Recordset
Dim SQl As String
Dim Zbir As Single

'On Error Resume Next

Set Db = CurrentDb()

SQl = "SELECT TOP 2 Brojcanik " _
 & "FROM Tabela " _
 & "WHERE ID_Podatok <= " & ID _
 & " ORDER BY ID_Podatok DESC"
Set Rs = Db.OpenRecordset(SQl)
 Rs.MoveLast
 Rs.MoveFirst
    If Rs.RecordCount = 1 Then
    TotalX = 0
    GoTo Kraj
    End If
Zbir = Rs!Brojcanik
Rs.MoveNext
Zbir = Zbir - Rs!Brojcanik
Rs.Close
TotalX = Zbir
Kraj:
End Function