With UnADOConnection do begin
ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+QuotedStr(IDUsuario.Text)+';PassWord='+QuotedStr(Clave.Text)+';Initial Catalog='+QuotedStr(BaseDatos)+';Data Source='+QuotedStr(Servidor);
end;