ADOConRC.Close;
  ADOConRC.ConnectionString:='Provider=SQLOLEDB.1;Initial Catalog=ReadCard;Data Source='+datahost;
  try  //------------标记-----------
    ADOConRC.Open(datauser,datapassword); //-----------标记二---------
  except
    On E:EOleException do
      begin
        ErrStr:=E.Message;
        ErrNo:=E.ErrorCode;
        raise E.Create(ErrStr,ErrNo,ErrStr,'',0);
        ShowMessage(IntToStr(ErrNo));
      end;
  end;