function TNewsTbl.InitialDataBaseaccess: Boolean;
begin
AdoConnection := TAdoConnection.Create(nil);
adoconnection.LoginPrompt:=false;
AdoQuery := TAdoQuery.Create(nil);
AdoConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=admin;Data Source=' +
ExtractFilePath(ParamStr(0)) + '..\sys\NewsMessage.mdb;';
Result := False;
try
AdoConnection.Connected := True;
AdoQuery.Connection := AdoConnection;
Result := True;
except
AdoConnection.Free;
AdoQuery.Free;
end;
end;