VB Error...

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