ник: kot_k_k
переделац
StrSQL="SELECT Company, data FROM CompInf WHERE data = " & Forms!Otchet![Конец]
Set Zap = CurrentDb.OpenRecordset(SrtSQL)
и посмотри что пишет тебе в StrSQL
и еще проверь дату чтоб не вышло 30/12/2009 - для акса с его американским форматом это жопка у них месяц/день/год - 30-го месяца не бывает