Как проверить какое значение вернул запрос ?

if "Table1.Field" = "home" then
end if

Dim table As Recordset
 
Set table = CurrentBD.OpenRecordset("SELECT Table1.Field FROM Table1;", dbOpenDynaset)
  If Not table.EOF Then
    If table!Field = "home" Then
      ...
    End If
  End If
End If

Dim i As Integer
repSource = ""
 
 For i = 0 To List1.ListCount - 1
   If List1.Selected(i) Then
      If repSource > "" Then repSource = repSource & ","
         repSource = repSource & CStr(List1.ItemData(i))
      End If
 Next
 
repSource = "SELECT BatchReport.BatchReportID, BatchReport.Date, Order.OrderNumber, Order.ResNum, Order.OrderedAmount, BatchReport.HotWater, BatchReport.HotWaterAct, BatchReport.ColdWater, BatchReport.ColdWaterAct, BatchReport.AddWater, BatchReport.LVWater, BatchReport.FixWater, BatchReport.wc, BatchReport.wcAct, BatchReport.MixingTime, Order.Temp, Order.Testi FROM [Order] INNER JOIN BatchReport ON Order.OrderID = BatchReport.OrderID WHERE BatchReportID in (" & repSource & ")"

Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset(repSource, dbOpenDynaset)
 
If Not rst.EOF Then
    If rst!OrderNumber = 'home' Then
        MsgBox "You have chosen home.", vbInformation
    End If
End If

Dim i As Integer
Dim rst As Recordset, dbs As Database
Dim strCriteria As String
 
Set dbs = CurrentDb
strCriteria = "[OrderNumber] = 'home'"
repSource = ""
 
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            If repSource > "" Then repSource = repSource & ","
            repSource = repSource & CStr(List1.ItemData(i))
        End If
    Next
 
repSource = "SELECT BatchReport.BatchReportID, BatchReport.Date, Order.OrderNumber, Order.ResNum, Order.OrderedAmount, BatchReport.HotWater, BatchReport.HotWaterAct, BatchReport.ColdWater, BatchReport.ColdWaterAct, BatchReport.AddWater, BatchReport.LVWater, BatchReport.FixWater, BatchReport.wc, BatchReport.wcAct, BatchReport.MixingTime, Order.Temp, Order.Testi FROM [Order] INNER JOIN BatchReport ON Order.OrderID = BatchReport.OrderID WHERE BatchReportID in (" & repSource & ")"
 
Set rst = dbs.OpenRecordset(repSource, dbOpenDynaset)
rst.FindFirst strCriteria
 
If rst.NoMatch Then
    MsgBox "Not found home."
Else
    Do Until rst.NoMatch
        Debug.Print rst!OrderNumber
        rst.FindNext strCriteria
    Loop
    MsgBox "Found home."
End If
 
rst.Close
Set dbs = Nothing