ADO中Getstring返回值为空时，其返回的为回车符，可用vbcr或chr(13)替换成空字符。如：
strNo=cnn.execute(strSql).getstring
strNo=replace(strNo,vbcr,"")
