procedure ConnectToDatabase(DatabaseLocation : string; SQLConn : TSQLConnection);
	var
	ConnectionString : string;
	begin
	ConnectionString:='Database='+DatabaseLocation;
	SQLConn.Params.Add(ConnectionString);
	SQLConn.Connected:=True;
	end;

	procedure TMainWindow.OpenDialog1Close(Sender: TObject);
	begin
	  partofconnectstring:=OpenDialog1.FileName;
	  ConnectToDatabase(partofconnectstring, SQLConnection1);
	  CreateObjs(SQLConnection1, DBSchema);
	  //IBDatabase1.DatabaseName:='127.0.0.1:'+ChangeFileExt(OpenDialog1.FileName, '.fdb');
	end;

    unable to open database file