[Alexandro]

Hola a los 2 y muchas gracias por contestarme. Me ha servido de mucho la ayuda de ambos. Ya funciona. Esto es lo que hice:

Código Delphi [-]
procedure TFrm_Entrada.BitBtn1Click(Sender: TObject);
begin
Modulo_Conexion.ADO_Conector.ConnectionString:='Provider=SQLOLEDB.1;Password='+Edt_Pass.Text+';Persi  st Security Info=True;User ID='+Edt_Usuario.Text+';Initial Catalog=RRHH;Data Source=INFORMATICA4;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=INFORMATICA4;Use Encryption for Data=False;Tag with column collation when possible=False';
Try
   Modulo_Conexion.ADO_Conector.Open(Edt_Usuario.Text,Edt_Pass.Text);
   if Modulo_Conexion.ADO_Conector.Connected then
                                               begin
                                                 ShowMessage('Conectado');
                                                 Frm_Principal.Show;
                                                 Frm_Entrada.Hide;
                                               end;
except
  on E:Exception do begin
      MessageDlg(Format('Error al conectar; Error completo: (%s) %s',
                 [E.ClassName, E.Message]), mtError, [mbOK], 0);
    end;
end;
end;

Bien, eso es lo que he hecho. Aca no hay problemas. Me esta dando un error la segunda vez que inicio la aplicacion que dice: "Especificación de autorizacion no valida". Saben a que se debe esto? Hay algo que no he puesto? que me falta?
Gracias de antemano.