ник: Алексей
Спасибо большое все работает 
теперь буду разбираться как ... можно еще попросить (извняюсь за наглость - очень надо .. ) как можно в этом куске кода
If rst.RecordCount <> 0 Then
MsgBox "ближайшая дата = " & rst![dt] & ", ID записи = " & rst![id]
вставить что нибудть чтобы по выполнению кода открывалась эта таблица с выделенной найденно записью ? спасибо еще раз...