可以把会员注册的用户名与数据库中所有已注册会员的用户名进行比较
如果同名,就提示换名
如果无同名,就继续注册
regUsername = "XXXXX" '会员要注册的用户名
Rs = "select count(*) as outCont from 表名 where username='"&regUsername&"'"
if Rs("outCount")="0" then '是否有同名的会员记录
  ....
else
  ....
end if