ник: Гоблин
Во блин.
Me.RecordSource = "SELECT [№ истории].КодПациента, [№ истории].№Истории, _
& [№ истории].Отделение, [№ истории].Направлен, [№ истории].Ургентность, _
& [№ истории].КодПоМКБ10, [№ истории].ТипОбследования, [№ истории].ЛечащийВрач _
&FROM [№ истории]WHERE ((([№ истории].КодПациента)=[Forms]![Пациенты]![КодПациента]));"
И все равно краснеет. 
Чего ему не так.
С другой стороны уместился в одну строку. А работать не хочет как надо.