求助，有一段VBA语句，一执行就报错，求高手帮忙看下。

TxyzT

Private Sub Command25_Click()

Dim n1 As Integer
Dim sql1 As String
Dim sql2 As String
Dim bd As DAO.Database
Dim cxb1 As DAO.Recordset
Dim cxb2 As DAO.Recordset

Set bd = CurrentDb()
sql1 = "select * From 生产计划明细表 WHERE 加工批次=[Forms]![计划详细进度编制]![计划编号];"
sql2 = "select * From 部别计划表  WHERE 计划编号=[Forms]![计划详细进度编制]![计划编号];"
n1 = 0
Set cxb1 = db.OpenRecordset(sql1, bdOpenDynaset)
Set cxb2 = db.OpenRecordset(sql2, bdOpenDynaset)

If cxb1.EOF = True Then
MsgBox "没有相关数据可以修正，请核查是否已将批次信息生成明细表！"
Else
   Do Until cxb1.EOF = True
        If cxb1!表属性数字 = 2 Then
           n1 = n1 + 1
           Else
         Do Until cxb2.EOF = True
          If cxb1!机型 = cxb2!机型 And cxb1!配置 = cxb2!配置 Then
            cxb1!完成时间 = cxb1!完成时间 + cxb2!零件加工天数
            cxb1!表属性数字 = cxb1!表属性数字 + 1
          End If
            cxb2.MoveNext
            Loop
          cxb1.MoveNext
          cxb1.Update
        End If

    Loop
        MsgBox Me!Combo_计划编号 & "的日期数据已更新，有" & n1 & "个数据没有更新！"
        End If
Set cxb1 = Nothing
Set cxb2 = Nothing

End Sub

一运行就报错（在绿色自字体处），需要对象（错误 424）。
帮助说明：引用属性和方法经常需要一个明确的对象限定符
求高手帮忙看下具体是什么问题，应该如何解决？