Public Function DSum(ByVal Pole As String, ByVal Tabela As String, Optional ByVal Uslov = "") Dim rsds As ADODB.Recordset Dim StrSQL As String Dim Vkupno As Double Vkupno = 0 If IsNull(Uslov) Or Uslov = "" Then StrSQL = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela Else StrSQL = "SELECT " & Tabela & "." & Pole & " FROM " & Tabela & " WHERE ((" & Tabela & "." & Uslov & "))" End If Set rsds = cn.Execute(StrSQL) If rsds.RecordCount = 0 Then DSum = "" Exit Function Else rsds.MoveFirst Do While Not rsds.EOF Vkupno = Vkupno + rsds(0).Value rsds.MoveNext Loop DSum = Vkupno Exit Function End If End Function