缺少用于更新或刷新的基本表信息？

Question

FORM_LOAD中我已经要追加记录的表打开了，代码如下：
Set rsrecordset2 = New ADODB.Recordset 'rsrecordset2存放《挂号记录》
    rsrecordset2.CursorType = adOpenStatic
    rsrecordset2.CursorLocation = adUseClient
    rsrecordset2.LockType = adLockPessimistic
    rsrecordset2.ActiveConnection = connconnection
    rsrecordset2.Source = "select*from 挂号记录"
    rsrecordset2.Open '打开表《挂号记录》
然后在添加命令中有代码如下：
rsrecordset2.AddNew 
rsrecordset2.Fields("日期").Value = Text5
rsrecordset2.Fields("时间").Value = Text6
rsrecordset2.Fields("ID").Value = Text1
rsrecordset2.Fields("姓名").Value = Text21
rsrecordset2.Fields("指定医生").Value = Combo1.Text
rsrecordset2.Fields("序号").Value = Text3rsrecordset2.Update
可是程序运行到这句就提示说：缺少用于更新或刷新的基本表信息
我已经检查过，数据库中表格的字段就这几个字段，并没有缺少。
请各位务必指教一下，谢谢

Answer 1

注意表的字段类型，Text内容是字符串ID、序号是数值型吗？如是，则
rsrecordset2.Fields("ID").Value =Val(Text1）
rsrecordset2.Fields("序号").Value = val(text3)

Answer 2

确定 connconnection连接着数据库。