用VB做登录界面的记住密码的有关问题

用VB做登录界面的记住密码的问题
状况是如果在数据库中将记住密码的字段设成1的话   第一次登陆可以显示密码.但是第二次就没有记住的密码了   数据库里面的记住密码字段也自动变成0   而且再构选记住密码也不管用了
------------------------------
Dim   txtSQL   As   String                                                 '检测是否已经记住密码
txtSQL   =   "select   *   from   user_Info   where   userName   =   ' "   &   txtUserName.Text   &   " ' "
    Set   rs   =   New   ADODB.Recordset
    rs.Open   txtSQL,   conn,   1,   1
    If   rs.Fields(2)   =   "1 "   Then
      checkPassWord.Value   =   1
      txtUserPass.Text   =   rs.Fields(1).Value
    Else
      checkPassWord.Value   =   0
      txtUserPass.Text   =   " "
    End   If
-------------------------------
下面是登录模块的记住密码部分:  
  If   Trim(rs.Fields(1))   =   Trim(txtUserPass.Text)   Then
                            If   checkPassWord.Value   =   1   Then
                                rs.Fields(2).Value   =   1
                                rs.Update
                            Else
                                rs.Fields(2).Value   =   0
                                rs.Update
                            End   If
------------------------------
谢谢大家帮忙!

------解决方案--------------------
rs.Fields(2) 字段类型??
是整数还是字符?
------解决方案--------------------
应该与数据库中fields（2）的 数据类型 有关系，如果是 文本型 的就可能出现以上问题，如果是 数字型 的就可能是其他原因了。