problema con la conexion de un formulario

[fergape]

en el formShow abro la conexion, te muestro el codigo:

procedure TfrmCasa.FormShow(Sender: TObject);
begin
with DM do begin
if not DB.Connected then
DB.Open;
if not tblCasa.Active then
tblCasa.Open;
end;
end;

nose si es eso lo que te referis.

Saludos.