Print #1, "----------------------------------------"
rst.MoveFirst
Do Until rst.EOF
   Suma = Suma + rst!SumOfiznos
   rst.MoveNext
Loop
rst.MoveFirst