[belajar-access] koreksi

[Maulana]

Private Sub Form_Load()
Dim VARA As Variant
VARA = DLookup("ORDER_NO", "TPURCHASE_ORDER", "ORDER_DATE = (SELECT 
MAX(ORDER_DATE) FROM TPURCHASE_ORDER WHERE LEN(ORDER_NO)=12) AND 
LEFT(ORDER_NO,2)=(SELECT MAX(LEFT(ORDER_NO,2)) FROM TPURCHASE_ORDER WHERE 
ORDER_DATE=(SELECT MAX(ORDER_DATE) FROM TPURCHASE_ORDER))")
ORDER_YEAR = CInt(Right(VARA, 2))
ORDER_MONTH = CInt(Mid(VARA, 8, 2))

If SYSYEAR = ORDER_YEAR Then
    If SYSMONTH = ORDER_MONTH Then
       If (CInt(Left(VARA, 2)) + 1) < 10 Then
       ORDER_NO = "0" & (CInt(Left(VARA, 2)) + 1) & (Mid(VARA, 3))
       Else
       ORDER_NO = (CInt(Left(VARA, 2)) + 1) & (Mid(VARA, 3))
       End If
    Else
       If (CInt(Mid(VARA, 8, 2)) + 1) < 10 Then
       ORDER_NO = "01/WRM/" & "0" & (CInt(Mid(VARA, 8, 2)) + 1) & "/" & 
(Right(VARA, 2))
       Else
       ORDER_NO = "01/WRM/" & (CInt(Mid(VARA, 8, 2)) + 1) & "/" & (Right(VARA, 
2))
       End If
    End If
Else
     ORDER_NO = "01/WRM/01/" & SYSYEAR
    End If
End Sub

mohon dikoreksi dimanakah letak kekeliruannya...sebab setiap awal bulan seperti 
nomor dokumen didepan tidak bertambah sesuai yg dinginkan, terpaksa diinput 
manual

thanks&regards