Set rst = CurrentDb.OpenRecordset( "...." ) ' Здесь запрос, который пытается выбрать запись для нужного контрагента.'
If rst.EOF And rst.BOF Then ' Ни одной записи нет '
     Set rst = CurrentDb.OpenRecordset( "...." ) ' Здесь запрос, который пытается выбрать запись для пустого контрагента '
     If rst.EOF And rst.BOF Then
         Msgbox  "Вапще никаких цен нет" , vbCritical
         Exit Sub
     End If
End If
Dim Price As Double
Price = rst![Цена]

' Ценовые соглашения для нужного контрагента '
' пусть запрос называется Запрос1 (прости господи) '
Select [ЦеновыеСоглашения].*
From [ЦеновыеСоглашения]
Where [Контрагент]= "......" 

Select Nz([Запрос1].[Цена],[СправочникБотинков].[Цена]) As [Цена]
From [СправочникБотинков] Left Join [Запрос1] On
       [СправочникБотинков].[Товар]=[Запрос1].[Товар] And
       [СправочникБотинков].[Завод]=[Запрос1].[Завод]