Problem mit Connection String

[shmia]

Mach es so, wie in folgendem Beispiel.
Ich habe auch auch der Funktion Connection eine Procedure gemacht, da dies sinnvoller ist.

Delphi-Quellcode:

procedure TDataModul.SetupConnection; 
var
   mdbfile : string;
begin 
  mdbfile := ExtractFilePath(ParamStr(0))+'abc.mdb';
  if not FileExists(mdbfile) then
     raise Exception.CreateFmt('Access-Datenbank %s fehlt!',[mdbfile]);
  AdOConnection1.Connected := False; // Zur Sicherheit
  ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+mdbfile; 
  ADOConnection1.LoginPrompt := False;
  AdOConnection1.Connected := TRUE; 
end;