vb+access无法更新

                strSQL = "select * from 会员信息"
    Call rsQ.Open(strSQL, con, adOpenDynamic, adLockOptimistic, adCmdText)
        rsQ.AddNew
            rsQ.Fields.Item("会员类型").Value = 888
            rsQ.Fields.Item("会员编号").Value = 9
            rsQ.Update
无提示错误，但是数据库没有更新，什么原因呢 --------------------编程问答-------------------- 改一句:rsQ.Open(strSQL, conn, adOpenKeyset, adLockOptimistic, adCmdText)  --------------------编程问答-------------------- 有问题请先GOOGLE,BAIDU --------------------编程问答-------------------- 我也想知道，正在找這方面的資料~~~~~

补充：VB ,  基础类