Buscar registro en un subformulario desde un formulario

Tengo un formulario dentro un subformulario hago esto pasa validar el inventario de los productos pero quisiera que cuando lo encuentre me mande el registro el cual tiene bajo en inventario de la forma que seleccione ese registro dentro de subformulario

With Me.frmSubVenta.Form.RecordsetClone
.MoveFirst
Do Until .EOF
.Edit
' aqui valida la exitencia
If DLookup("[CantidadP]", "tbProductos", "[CodigoProducto] = '" & !Nopieza & "'") < !cantidad Then
MsgBox "No existe Inventario suficiente de este producto, para realizar una Venta Posterior" & vbCrLf & "Existencia Actual: " & DLookup("CantidadP", "[tbProductos]", "[CodigoProducto]='" & !Nopieza & "'") _
, vbCritical + vbOKOnly, "Producto Insuficiente en Inventario"
Exit Sub

End If

.Update
.MoveNext
Loop
End With

Lo que deseo es que me mande al registro que encontró sin inventario