item cannot be found in the collection corresponding to the requested name or ordinal
<p>My code gives the following error. How can I correct this?</p>

<blockquote>
  <p>Item cannot be found in the collection corresponding to the requested name or ordinal</p>
</blockquote>

<pre><code>ElseIf Me.chkItem.Checked = True Then
    Dim CheckNumber As String = ""
    Dim CheckRef As String = ""
    dsvoucheritem.Clear()
    DSVoucher_Expense.Clear()
    DSVoucher_Check.Clear()

    Try
        Me.lstCV.Items.Clear()
        strDiscount = Nothing
        rec.Open("select billpaymentcheckline.txnnumber, billpaymentcheckline.txndate" _
        &amp; ", billpaymentcheckline.payeeentityreffullname" _
        &amp; ", billpaymentcheckline.amount, billitemline.itemlineitemreffullname" _
        &amp; ", billitemline.memo" _
        &amp; ", billpaymentcheckline.appliedtotxndiscountamount" _
        &amp; ", billpaymentcheckline.appliedtotxnrefnumber, billpaymentcheckline.bankaccountreffullname" _
        &amp; ", billpaymentcheckline.appliedtotxndiscountaccountreffullname" _
        &amp; ", billpaymentcheckline.appliedtotxntxndate, billpaymentcheckline.appliedtotxnamount" _
        &amp; ", billpaymentcheckline.refnumber, account.AccountNumber from (billitemline inner join" _
        &amp; " billpaymentcheckline on billitemline.refnumber=billpaymentcheckline.appliedtotxnrefnumber) left outer join" _
        &amp; " account on billitemline.APAccountreflistid=account.listid where" _
        &amp; " billpaymentcheckline.bankaccountreflistid='" &amp;Me.lblBankID.Text &amp; "' and" _
        &amp; " billpaymentcheckline.refnumber between '" &amp; CInt(Me.txtRefFR.Text)
        &amp; "' and '" &amp; CInt(Me.txtRefTO.Text) &amp; "'", con, ADODB.CursorTypeEnum.adOpenForwardOnly, ADODB.LockTypeEnum.adLockReadOnly)
</code></pre>