ник: час
'Dim rst As ADODB.Recordset
'Set rst = New ADODB.Recordset
'rst.Open "SELECT COMPONENT_TBL.* From COMPONENT_TBL WHERE (вот только условие я не знаю как у тебю в таблах там)"
'If rst.RecordCount <> 0 Then
' Do While Not rst.EOF '
'rst("Цена")= Dfirst(
' rst.MoveNext
' Loop
'End If
'rst.Close
'Set rst = Nothing
===========================
Запрос создай в конструкторе запросов задав от руки условие - потом скопируй этот запрос - строкой SQL в код
http://office.microsoft.com/ru-ru/access/HA012288231049.aspx