Public Function GetAgSRecord(ID As String, tbName As String, fldA As String, mrk As Boolean) As ADODB.Recordset
    Dim rst As New ADODB.Recordset
    Dim cmd As New ADODB.Command
    Dim sql As String
    Dim keyField As String
    
    On Error GoTo eL
    
    keyField = rvKeys(tbName)
    
    sql = "SELECT " & keyField & ", Sum(" & fldA & ") as Agr FROM " & tbName & " WHERE " & keyField & "='" & trade & "' GROUP BY " & keyField
    rst.Open sql, rvConn, adOpenKeyset, adLockOptimistic
    
    If rst.EOF = False And rst.BOF = False Then
        Set GetAgSRecord = rst
    Else
        rst.Close
        Set GetAgSRecord = Nothing
    End If
End Function