База данных с нуля! Как подцепить Таблицы из ацесса к дельфи!?

ADOQuery1.Active:=False;
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Add('{Сюда пишем 1-ую строку запроса}');
ADOQuery1.SQL.Add('{Сюда пишем 2-ую строку запроса}');
{...}
ADOQuery1.SQL.Add('{Сюда пишем n-ую строку запроса}');
ADOQuery1.Active:=True; //Запрос выполняется, если успешно, то в Query лежит результат

ADOQuery1.RecNo:=i;
MyVar:=ADOQuery1.FieldValues['FieldName'];

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
MyVar:variant;
begin
SqlQuery1.RecNo:=2;
MyVar:=SQLQuery1.FieldValues['C:\Documents and Settings\Àäìèíèñòðàòîð\Ìîè äîêóìåíòû\files\áä\bd.mdb'];
end;
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
    FIO,Addr:String;//Сюда будем класть ФИО и адрес
begin
   ADOQuery1.Active:=False;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Add('SELECT * FROM [Zakazchik] WHERE [FIO] = '+Edit1.Text);//Текст запроса
   ADOQuery1.Active:=True;
   if ADOQuery1.RecordCount<>0 then
   begin
       for i:=1 to ADOQuery1.RecordCount do
       begin
          ADOQuery1.RecNo:=i;
          FIO:=ADOQuery1.FieldValues['FIO']; //Здесь будет тип поля с именем FIO т.е. String!
          Addr:=ADOQuery1.FieldValues['Address'];
          ShowMessage(FIO+' '+Addr);
       end;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Student');
ADOQuery1.Active:=True;
end;

 WHERE [FIO] = '+Edit1.Text