Form1-function-Form2

[Luckie]

Delphi-Quellcode:

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

So sieht das richtig aus, dann weißt du auch, was nicht funktioniert.

Und der Aufruf:

Delphi-Quellcode:

try
  if Connection_Herstellen then
  begin
    // weitere Code
  end
  else
    Form2Oeffnen;
  except
  on E: Exception do
  begin        
    MessageBox(0, PChar(e.Message, '', MB_ICONERROR or MB_OK);
  end;
end;