ADO Verbindung zu Access + Abfrage machen

[mkinzler]

Delphi-Quellcode:

procedure TForm1.Verbinden1Click(Sender: TObject);
begin
if DataModule2.Opendatabase=true then
begin
    Messagedlg('Konnte erfolgreich geöffnet werden',mtInformation,[mbok],0);
    ds1.Open;
end
else
    Messagedlg('Konnte nicht geöffnet werden',mtError,[mbok],0);
end;