Private Function getResultFromSQL(sql As String) As Variant
  Dim recordset As recordset
  
  Set recordset = CurrentDb.OpenRecordset(sql)
  
  If (Not recordset.EOF) _
   And (Not recordset.BOF) Then
    recordset.MoveFirst
    getResultFromSQL = recordset(0)
    
    Set recordset = Nothing
    Exit Function
  End If
  
  Set recordset = Nothing
  getResultFromSQL = Nothing
End Function

This method runs a SQL query and returns the first result (the query is expected to return exactly one record and one field).

getResultFromSQL(String) As Variant

sql, query

Visual Basic