今天在调试程序时发现SQL数据库不能更新，

当时读取时选用了：select  top 1 * from tablename where username='"& username &"'

rs.Open txtSQL,conn,1,3

改成：select   * from tablename where username='"& username &"'

一切OK.