Dim nRec As Long
Cn.Execute "DELETE FROM RODetailsTemp"
Set Recrodet = Nothing
Recrodet.Open "SELECT RO.RODate,ROD.ROPartNo,I.InvItemDesc,ROD.ROQuantity FROM RepairOrders RO, RODetails ROD, Inventory I Where ROD.RONo = RO.RONo and ROD.ROPartNo = I.InvPartNo ", Cn, adOpenStatic, adLockReadOnly
If Recrodet.RecordCount <> 0 Then
Recrodet.MoveFirst
While Not Recrodet.EOF
Xdate = "#" & Format(Recrodet(0), "mm/dd/yyyy") & "#"
RecBus.Open "SELECT * FROM RODetailsTemp ", Cn, adOpenStatic, adLockReadOnly
RecBus.Find "ROXDate = " & Xdate & " "
    If RecBus.EOF Or RecBus.RecordCount = 0 Then
    insertar = "Insert Into RODetailsTemp ([ROXDate],[ROPartNo],[ROItemDesc],[ROQuantity]) values (" & Xdate & ",'" & Trim(Recrodet(1)) & "','" & Trim(Recrodet(2)) & "'," & Trim(Recrodet(3)) & ")"
    nRec = nRec + 1
    Else
    RecBus.Find "ROPartNo = " & Recrodet(1) & " "
        If RecBus.EOF Or RecBus.RecordCount = 0 Then
        insertar = "Insert Into RODetailsTemp ([ROXDate],[ROPartNo],[ROItemDesc],[ROQuantity]) values (" & Xdate & ",'" & Trim(Recrodet(1)) & "','" & Trim(Recrodet(2)) & "'," & Trim(Recrodet(3)) & ")"
        nRec = nRec + 1
        Else
        insertar = "Update RODetailsTemp Set ROQuantity = ROQuantity + " & Recrodet(3) & " Where ROXDate = " & Xdate & " and ROPartNo = '" & Recrodet(1) & "' "
        End If
    End If
Cn.Execute insertar
Recrodet.MoveNext
Set RecBus = Nothing
Wend
End If
Set Recrodet = Nothing
Comprobar:
    With Recrodet
        If .State Then .Close
        .Open "SELECT ROCustNo,ROCustName,(ROGrandTotal - ROAmountPaid) as balance FROM RepairOrders ", Cn, adOpenStatic, adLockReadOnly
        DoEvents
        If .RecordCount < nRec Then GoTo Comprobar
        .Close
    End With