ADO/SQL to extract SUM Query

[cstimart]

I happened upon the following code for using ADO/SQL to extract a record count for Access Queries...

Private Function Record_Count(sSQL As String)
    Set cnn = New ADODB.Connection
    With cnn
            .CommandTimeout = 0
            .Provider = "Microsoft.Jet.OLEDB.4.0"
            .ConnectionString = "Data Source=" & FolderName & TARGET_DB
            .Open
    End With
     
    Set cmd = New ADODB.Command
        With cmd
            .CommandTimeout = 0
            .CommandType = adCmdText
            .CommandText = sSQL
            .ActiveConnection = cnn
        End With
     
    Set rst = New ADODB.Recordset
        rst.Open cmd, , adOpenStatic, adLockReadOnly
        Record_Count = rst.RecordCount
     
    rst.Close
    cnn.Close
    Set cnn = Nothing
    Set cmd = Nothing
    Set rst = Nothing
End Function

Is it possible to revise this to extract the SUM of a field in a query? Or do I need to go another route?

 

[cstimart]

In other words, I have my query in SQL (via ADO) that I could extract all the records into excel, sum the field(s) that I need, and then delete that information from Excel.

Is it possible to shortcut that and just return the sum(s) I am looking for?