Form1-function-Form2

[DeddyH]

Oder so:

Delphi-Quellcode:

function Connection_Herstellen(pConnection: TADOConnection; pConnectionString: String): Boolean;
begin
  if not pConnection.Connected then
    try
      pConnection.ConnectionString := pConnectionString;
      pConnection.Open;
    except
      on E: Exception do
        begin
          MessageBox(0, PChar('Fehler beim Verbinden mit der Datenbank:' + sLineBreak + E.Message), '', MB_ICONERROR or MB_OK);
        end;
    end;
  Result := pConnection.Connected;
end;