Dear All,

I'd like to ask about my VB program. Coz, it shows an error while I run it.

Here is my code :

Code:
If myPl.RecordCount > 0 Then
        myPl.MoveFirst
        
        Do While Not myPl.EOF
            For sizeLoop = 1 To (jmlSize - 1)
                Cnt = Cnt + 5
                seqQ = PadToString(Cnt, 3)

                If optHeavy.Value = True Then
                    tipeKain = "A"
                ElseIf Option1.Value = True Then
                    tipeKain = "B"
                End If

                mSize = PadToString(sizeLoop, 2)
                rSize = "qty" & mSize
                
                OrdQty = myPl(rSize)
                
                myConn.BeginTrans
                
                myConn.Execute "insert into qcticket_hdr(pl_no, pack, fac_no, tgl, seq, kain_type, color, order_qty) " _
                & "select '" & Trim(txtCtrlJob.Text) & "','" & Trim(txtPack.Text) & "','" _
                & Trim(txtFtyNo.Text) & "','" & txtTgl.Text & "','" & Trim(seqQ) & "', '" _
                & tipeKain & "','" & IIf(Not IsNull(Trim(myPl!Color)), Trim(myPl!Color), Null) & "'," & OrdQty & ""
                
                myConn.CommitTrans
                
            Next sizeLoop
            
            myPl.MoveNext
        Loop
    End If
At the first looping, it shows no error. But at the second looping, comes an error at

Code:
     OrdQty = myPl(rSize)
The error said "Catasthropic Failure"

Does anybody know about this and how to handle this ???
Need Help ASAP

Cheers,
Wen Lie