Вывести непустые значения

[StudentMarat]

используется Delphi + Access
На форма DBGRID и кнопка BtnBtn.
При нажатии на кнопку нужно, чтобы выводились все студенты проживающие в комнатах. Вот код.

procedure TForm3.N4Click(Sender: TObject);
begin

DataModule4.ADOQueryStudent.Active:=false;
DataModule4.ADOQueryStudent.SQL.text:='SELECT Код_студента, Фамилия, Имя, Отчество, Дата_рождения, Пол, Код_группы, Код_комнаты FROM Студенты WHERE (((Студенты.Код_комнаты) Is Not Null))';
DataModule4.ADOQueryStudent.Active:=true;
DataModule4.ADOQueryStudent.Open;
DBGrid1.Columns.Items[0].FieldName := 'Код_студента';
DBGrid1.Columns.Items[0].Title.Caption:='Код_студента';
DBGrid1.Columns.Items[0].Visible:=False;

DBGrid1.Columns.Items[1].FieldName := 'Фамилия';
DBGrid1.Columns.Items[1].Title.Caption:='Фамилия';
DBGrid1.Columns.Items[1].Visible:=True;

DBGrid1.Columns.Items[2].FieldName := 'Имя';
DBGrid1.Columns.Items[2].Title.Caption:='Имя';
DBGrid1.Columns.Items[2].Visible:=True;

DBGrid1.Columns.Items[3].FieldName := 'Отчество';
DBGrid1.Columns.Items[3].Title.Caption:='Отчество';
DBGrid1.Columns.Items[3].Visible:=True;

DBGrid1.Columns.Items[4].FieldName := 'Дата_рождения';
DBGrid1.Columns.Items[4].Title.Caption:='Дата_рождения';
DBGrid1.Columns.Items[4].Visible:=True;

DBGrid1.Columns.Items[5].FieldName := 'Пол';
DBGrid1.Columns.Items[5].Title.Caption:='Пол';
DBGrid1.Columns.Items[5].Visible:=True;

DBGrid1.Columns.Items[6].FieldName := 'Gruppa';
DBGrid1.Columns.Items[6].Title.Caption:='Группаfff';
DBGrid1.Columns.Items[6].Visible:=True;

DBGrid1.Columns.Items[7].FieldName := 'Komnata';
DBGrid1.Columns.Items[7].Title.Caption:='Комната';
DBGrid1.Columns.Items[7].Visible:=True;

DataModule4.ADOQueryStudent.Close;
end;

Ошибки Delphi не фиксирует, но и результат запроса не показывается.

[Аватар]

1. Open после Active:=true не нужен
2. Выполнили Close - зачем? Естественно ничего не отображается

[StudentMarat]

Сообщение от Аватар

1. Open после Active:=true не нужен
2. Выполнили Close - зачем? Естественно ничего не отображается

Сделал, но все равно ничего не отображается

[Аватар]

DBGrid нацелен на DataSource?
DataSource нацелен на ADOQuery?

[StudentMarat]

Да DBGRID нацелен на DataSource

Нет DataSource нацелена на AdoTAble

[Аватар]

А при чем AdoTAble , если используете ADOQuery?

[StudentMarat]

Сообщение от Аватар

А при чем AdoTAble , если используете ADOQuery?

Понял, час исправлю

[StudentMarat]

Все с этим разобрался.
Но теперь появилась другая проблема.
К примеру, есть в DBGrid информация о студентах, проживающих в общежитии. Я хочу определенного студента выселить из комнаты общежития. Я пишу такой код:

procedure TForm3.BitBtn3Click(Sender: TObject);
var
f:string;
begin
F:=DataModule4.StudentTable.FieldValues['Фамилия'];
if  MessageDlg
('Вы действительно хотите выселить '+f+'',mtConfirmation,[mbYes,mbNo],0)= idYes
    then

        DataModule4.StudentTable.FieldByName('Komnata').Clear;
end;

Выдается ошибка.