ник: Мюллер
Нафига вам заморачиваться с кверидефами, если вы в них не разбираетесь?
Если нужно очистить таблицу, а затем проинсертить ее, то используйте просто конструкции
CurrentDb.Execute "бла блабла - короче тута должон быть запрос "
По вашим инсертам - килограмм ошибок.
Во первых, непонятно, что вы хотите сделать в условии Where
st = "insert into [Результаты поиска] ([Id Rec],Наименование,[Id Table]) select Сч_ОС,Наименование,[Id Table], from ОткрытиеСчета where (Наименование, сч_ОС) = " & txtFieldCryt.Value & ""
Выделенное как понимать?
Во вторых - если вы так и пишите в коде VBA, то перенос строк делается неправильно.
В третьих - пока еще не все посмотрел. 
То же самое касается и второго инсерта