ник: osmor
если запрос сохраненный, то посмотрите про Dlookup msgbox nz(DLookup("[ПолеСоЗначение]", "ИмяЗапроса"),0)
или если нужно с условием
msgbox nz(DLookup("[ПолеСоЗначение]", "ИмяЗапроса","[поле] = 125"),0)
Если запрос не сохраненный т.е. это строка SQL, то
Dim rst As New ADODB.Recordset
rst.Open "SELECT * FROM tblGroupGoods .......", CurrentProject.Connection, adOpenStatic, adLockReadOnly
if rst.recordcount >0 then Msgbox rst![поле]
rst.close
set rst = nothing