Adoquery1 close ve open

[didimli]

merhabalar
adoqueryde veritanaından bilgileri ekrana getirip ve sürekli olarak kayıyor veritabanı ise ağda başka bir pcde.programı kapatmadan veritabındaki güncel veriyi çeksin bunu nasıl yapabilirim
adoquery1.close ve open,refresh,updaterecord komutları ile yapmaya çalıştım olmadı yardımcı olabilirmisiniz


KODLAR AŞAĞIDADIR

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, StdCtrls, Mask, ADODB,
ComCtrls;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
ADOQuery1id: TAutoIncField;
ADOQuery1polk: TWideStringField;
ADOQuery1dr: TWideStringField;
ADOQuery1durum: TWideStringField;
DataSource1: TDataSource;
Timer1: TTimer;
Label5: TLabel;
GroupBox1: TGroupBox;
DBText2: TDBText;
DBText3: TDBText;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DBText2Click(Sender: TObject);



private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
MyTime: TDateTime;
basla : Boolean;

implementation
var
x : String;
i : longint;
sira : integer;


{$R *.dfm}


procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not basla then

begin

x := '' + ADOQuery1.Fields[1].AsString + '---> ' + ADOQuery1.Fields[3].AsString + ' '; // ne yazılacağını burda belirliyoruz.
basla := true;
i:= 0;

end;

inc(i);
x := copy(x,2,length(x)) + copy(x,1,1);
label5.Caption:= x;

if i >= length(x) then
begin
basla := false;
if not adoquery1.eof then
ADOQuery1.Next
else
ADOQuery1.first;


end;


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
basla := False;
Timer1.Interval:=250;
timer1.Enabled := true;
i := 0;
sira := 0;
end;



end.

[tayipk]

kullandığın Veri tabanı nedir?

[didimli]

merhaba
access kullanıyorum