1. Код оформляем тегами
2.
Код:
CommandText:='SELECT * FROM Предметы WHERE ([Код_предмета] LIKE %'+QuotedStr(a)+'%) AND ([Код_студента] LIKE %'+QuotedStr(b)+'%)';
3. Избавляемся от привычки называть имена таблиц и полей русскими буквами ... чревато последствиями