Subscript Out Of Range Error

See more:

VB

I have attached a code in VB 6.0 below :

If iFrameIndex = 29 Then
            With structAccountDetails.seqTaxLicType (iIndex).seqVehicleDetails(0)
                mskBondCompany.Text = EMPTYBONDCOMPANY
                mskBondAmountMFT.Text = "";
                mskBondCompany.SelText = .strVehicleNo
                mskBondAmountMFT.SelText = .mnyStateTax
               
                If .mnyCityTax = "0" Then
                                    txtBondNumber(1).Text = "";
                Else
                    txtBondNumber(1).Text = .mnyCityTax
                End If
                txtPermitNumber(1).Text = .dtEnteredDate
            End With
    End If

While debug , the error "Subscript Out Of Range.Please Contact System Administrator" comes in the line :

With structAccountDetails.seqTaxLicType(iIndex).seqVehicleDetails(0)

and then it moves over to the ErrorHandler function stating it as a fatal error.

Here and in other parts of this module, i have changed the mnyCityTax variable to String from Integer. I have changed everything in the Middleware C++ code as well as made changes in the database such that the corresponding entry for mnyCityTax goes into the relevant table as a string and not as an Integer.

But , i recieve a "Subscript Out Of Range.Please Contact System Administrator" Error while i click on the button that calls the mnyCity Tax variable in VB.

Other parts of the module concerning

1)ReDim structAccountDetails.seqTaxLicType(-1 To -1)

2)structAccountDetails.seqTaxLicType = structAccountDetailsUpdT.seqTaxLicType
                    ReDim Preserve structAccountDetails.seqTaxLicType(UBound(structAccountDetails.seqTaxLicType) + 1)

The declaration stands as :

Dim structAccountDetails    As TAXMANTRABROKERLib.iAccountDetailsRow

Is there something to do with the declaration? Previously, it was working fine with the table having the column as Integer. I have just changed the column type in the table as varchar. But it shows error.

Can somebody help me?
I am in the middle of a project.

Thanks in advance