Насколько я понял структуру данных, все можно решить и через запросы (программу на VB писать недосуг):
1) Запрос на выбор строк времени из tab2:
SELECT tab2.id, tab2.txt_range, tab2.int_value, tab2.txt_value
FROM tab2
WHERE (((tab2.txt_range)="wr"));
2) Запрос на выбор строк данных из tab2:
SELECT tab2.id, tab2.txt_range, tab2.int_value, tab2.txt_value
FROM tab2
WHERE (((tab2.txt_range)="dan"));
3) И, наконец, итоговый запрос c выбором необходимых данных по задаваемому параметру {Param]:
SELECT tab1.Id_x, dan.txt_value, wr.txt_value
FROM (tab1 INNER JOIN wr ON tab1.Id_wr = wr.id) INNER JOIN dan ON tab1.Id_dan = dan.id
WHERE (((wr.txt_value)=[param]));

PS. Изините, если что не так

Или я ошибаюсь, или Ваш проект ориентирован в основном на VB, а не на SQL Server
Но я не понимаю, что Вам мешает перенести предложенные мной запросы в VB? Я ведь написал, что мне это просто лень сделать Что-то типа:
--------------------------------------------------------------------------------
Sub Snja()
On Error GoTo Snja_Err

DoCmd.OpenQuery "itog", acNormal, acEdit

Snja_Exit:
Exit Function

Snja_Err:
MsgBox Error$
Resume Snja_Exit

End Sub
---------------------------------------------------------------------------------
Параметр можно передавать как в саму процедуру, так и вводить по ходу дела (как это реализовано в моем примере)