Записать результат SQL запроса в переменную

Sub UPDDown ()
Dim varConn As String   'объявление переменных
Dim varSQL1 As String
Dim varSQL2 As String
Dim m As String
Dim res As String
 
    Range("A1").CurrentRegion.ClearContents
  
    varConn = "ODBC;DBQ=test.mdb;Driver={Driver do Microsoft Access (*.mdb)}"
  
    name = Range("A3")   'Забирем имя человека из А3
     
    varSQL1 = "SELECT org FROM people WHERE name="   'запрос на поиск организации по соответствующему имени
          With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("A1"))
             .CommandText = varSQL1 & "'" & name & "'" 'конструирование запроса
             .Name = "_"    'магия 1
             .Refresh BackgroundQuery:=True      'магия 2
         End  
 
    varSQL2 = "UPDATE rasp SET mon1=mon1-1 WHERE org="   'запрос на изменение переменной в БД
          With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("O7"))
             .CommandText = varSQL & "'" & res & "'" 'КАК ЗАНЕСТИ РЕЗУЛЬТАТ ЗАПРОСА В ЭТУ ПЕРЕМЕННУЮ?
             .Name = "_" 'магия 1
             .Refresh BackgroundQuery:=True 'магия 2
         End With
End Sub

Destination:=Range("A1")

res = Range("A1").Value

 .Refresh BackgroundQuery:=True 'магия 2

Sub UPDDown()
Dim varConn As String   'îáúÿâëåíèå ïåðåìåííûõ
Dim varSQL1 As String
Dim varSQL2 As String
Dim res As String
Dim bname As String
 
    Range("A1").CurrentRegion.ClearContents
  
    varConn = "ODBC;DBQ=test.mdb;Driver={Driver do Microsoft Access (*.mdb)}"
  
    bname = Range("A3").Value
    'Çàáèðåì èìÿ ÷åëîâåêà èç À3
     
    varSQL1 = "SELECT org FROM people WHERE name="   'çàïðîñ íà ïîèñê îðãàíèçàöèè ïî ñîîòâåòñòâóþùåìó èìåíè
          With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("A1"))
             .CommandText = varSQL1 & "'" & bname & "'" 'êîíñòðóèðîâàíèå çàïðîñà
             .Name = "_"    'ìàãèÿ 1
             .BackgroundQuery = False
           
         
res = Range("A1").Value
 
    varSQL2 = "UPDATE rasp SET mon1=mon1-1 WHERE org="   'çàïðîñ íà èçìåíåíèå ïåðåìåííîé â ÁÄ
          With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("O7"))
             .CommandText = varSQL & "'" & res & "'" 'ÊÀÊ ÇÀÍÅÑÒÈ ÐÅÇÓËÜÒÀÒ ÇÀÏÐÎÑÀ Â ÝÒÓ ÏÅÐÅÌÅÍÍÓÞ?
             .Name = "_" 'ìàãèÿ 1
             .BackgroundQuery = False
         End With
         End With
End Sub

Dim rs as adodb.recordset
Set rs=new adodb.recordset
rs.Open "SELECT a1.org FROM people as a1 WHERE a1.name='" & Range("A3").Value & "'",varConn,3,3
if rs.eof and rs.bof Then exit sub
rs.movefirst
res=rs.fields("org")
set rs=nothing

Sub UPDDown()
Dim varConn As String   'объявление переменных
Dim varSQL1 As String
Dim varSQL2 As String
Dim res As String
Dim bname As String
 
    Range("A1").CurrentRegion.ClearContents
  
    varConn = "ODBC;DBQ=F:\Users\snipe\Downloads\test\test\test.mdb;Driver={Driver do Microsoft Access (*.mdb)}"
  Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT a1.Поле2 FROM people as a1 WHERE a1.Поле1='" & Range("A3").Value & "'", varConn, 3, 3
If rs.EOF And rs.bof Then Exit Sub
rs.movefirst
res = rs.fields("Поле2")
Set rs = Nothing
 
         
 
    varSQL2 = "UPDATE rasp SET rasp.поле2=rasp.поле2 + 1 WHERE rasp.поле1="   'запрос на изменение переменной в БД
          With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("O7"))
             .CommandText = varSQL2 & "'" & res & "'" 'КАК ЗАНЕСТИ РЕЗУЛЬТАТ ЗАПРОСА В ЭТУ ПЕРЕМЕННУЮ?
             .Name = "_" 'магия 1
             .Refresh BackgroundQuery:=True
         End With
'
End Sub