ACCESS循环代码执行问题求助

问题：

代码内有两个须要循环的，其中有一个不满足就不执行循环，求帮忙看看

价格=“单价”表中“收费项目”与子窗体“收费项目”相符的

底数=  业主信息 表中 “业主代码、收费项目、收费日期=最大值”等于子窗体业主代码与收费项目的”抄表“数。（底数显示数据需=单价表中，收费项目，“是否选择”字段=-1勾选的）

点击下载此附件

现代码如下：
Private Sub XZ_AfterUpdate()
Me.业主信息_子窗体.Requery
Me.业主信息_子窗体.SetFocus
Dim Bend
On Error GoTo Err_XXXX
DoCmd.GoToRecord acActiveDataObject, , acFirst
Do Until IsNull(Me.[业主信息_子窗体]![收费项目])
Me.[业主信息_子窗体]![价格] = DLookup("单价", "单价", "收费项目='" & Me.[业主信息_子窗体]![收费项目] & "'")
Me.[业主信息_子窗体]![底数] = DMax("抄表", "业主信息", "业主代码='" & [YZDM] & "' and 收费项目='" & DLookup("收费项目", "单价", "收费项目&是否选择='" & Me.[业主信息_子窗体]![收费项目] & "-1" & "'") & "' and 缴费日期=#" & DMax("缴费日期", "业主信息", "业主代码&收费项目='" & [YZDM] & Me.[业主信息_子窗体]![收费项目] & "'") & "#")
If Bend = -1 Then Exit Do
DoCmd.GoToRecord acActiveDataObject, , acNext
Loop
Err_XXXX:
   If Err.Number = 2105 Then
   Bend = -1
   Resume Next
   End If
End Sub