ADO Connection in DLL -> .Open = Fehler

[sirius]

Bei mir geht nix über OI:

Delphi-Quellcode:

function TestFirstLastValue(FileName:Pchar; ConnStr:PChar; Messort:pchar; Laenge:integer) :integer; //wird exportiert
var Daten:Tmessdaten;
    mo,name,cstr:string;
    DB:TAdoConnection;
    query:TAdoquery;
    id_kanal,id_zeit,a:integer;
    tab:string;
    vgl:double;
    res:boolean;
begin
  res:=false;
  id_kanal:=0;
  try
    if not initeinstellungen(connstr) then
      raise Exception.Create('Fehler beim Lesen der Einstellungen aus der Datenbank');
...
end;

function InitEinstellungen(ConnStr:Pchar):boolean;
var cstr:string;
    DB:TAdoConnection;
    Query:TadoQuery;
    s,w:string;
    z:int64;
begin
  result:=true;
  if einstellunggeladen {globaler Boolean} then exit;
  cstr:=connstr;
  try
    Query:=nil;
    DB:=nil;
    try
      DB:=TAdoConnection.Create(nil);
      DB.ConnectionString:=cstr;
      DB.Open;
      Query:=TAdoQuery.Create(nil);
      Query.Connection:=DB;
      DBAfterConnect(query);

...
end;

TestFirstLastValue wird exportiert und auch als erstes aufgerufen,