数据库中的表为什么写入不了数据，怪？！哪位高手帮我看看

我用的是ACCESS，数据库里两张表，一张产品型号表，一张产品信息表。代码如下：
  Dim b as Integer
  Dim adoQ As ADODB.Recordset
  Dim sQ As String
  Set adoQ = New ADODB.Recordset
  sQ = "select count(*) from 型号表 where 型号 like '" & Trim(xhtxt.Text) & " ' "
  adoQ.Open sQ, cn, adOpenDynamic, adLockOptimistic
  Dim adoQxh As ADODB.Recordset
  Dim xh As String  
  Set adoQxh = New ADODB.Recordset
  adoQxh = "select * from 型号表 "
  adoQxh.Open xh,cn, adOpenStatic, adLockOptimistic
  If adoQ.Fields(0).Value < 1 Then
     MsgBox "您所输入的产品型号为新型号！", vbOKOnly, "提示"             
     adoQxh.AddNew
     adoQxh.Fields(0) = b       '序号                 
     adoQxh.Fields(1) = xhtxt.Text   '型号                
     adoQxh.Fields.Refresh
  End If                                        '判断是否是新型号，如果是添加一条记录
问题是，录入新记录保存时，产品信息表刷新后信息被保存了，但是型号表内没有记录，而且不报错。
设置断点，字段里有数据，用两个文本框获取字段，文本框也可以得到字段里的内容，但是退出程序后查看数据库型号表内无记录。原以为是数据库问题，将型号表删掉重新建仍然出现这个问题。我不知道为什么了。哪位高手可以告诉我啊