Function TotalX(Datum As Date)
Dim Db As Database
Dim Rs As Recordset
Dim SQl As String
Dim Nalog As Integer
Dim DatumStr As String

On Error Resume Next

Set Db = CurrentDb()
DatumStr = "#" & Format(Datum, "mm-dd-yyyy") & "#"
SQl = "SELECT sum([Prihod]-[Rashod]) as K " _
 & "FROM Table1 WHERE datum<=" & DatumStr
Set Rs = Db.OpenRecordset(SQl)
TotalX = Format(Rs!K, "0.00")
Rs.Close
End Function