Form1-function-Form2

[Klaus01]

sorry:

Delphi-Quellcode:

function Connection_Herstellen(pConnection: TADOConnection; pConnectionString: String): Boolean;
begin
  Result := False;
  if not pConnection.Connected then
  begin
    pConnection.ConnectionString := pConnectionString;
    pConnection.Open;
    Result := True;
  end;
end;

Grüße
Klaus