Ho do I use 2 loop in do while function

See more:

VB14

hi friends ,
i want to use 2 loop in 1 do while statement
i loop for id data in not found then go to next record
ii when he complit the opration of do while purpes and access.recordcount > currant record then secound loop but i get error in this function please help me,

What I have tried:

Dim num1 As Decimal = 0.0
    Dim num2 As Decimal = 0.0
    Dim num3 As Decimal = 0.0
    Dim i_tot As Decimal = 0.0
    Dim rec_tot As Decimal = 0.0
    Dim bal_tot As Decimal = 0.0
    Dim inv_no As String = ""
    Dim inv_dt As String = ""
    Dim p_cd As Integer = 0
    Dim tran_cd As Integer = 0
    Dim m_id As Integer = 0

    If NoErrors(True) = False Then MsgBox(access.Exception)
    access.Execquery("select cust_code from CUSTOMER_MASTER ")
    If currentrecord > access.dbdt.Rows.Count - 1 Then currentrecord = 0 ' Loop to first record
    Do While currentrecord < access.recordcount
        access.Execquery("select cust_code from CUSTOMER_MASTER ")
        Dim dr As DataRow = access.dbdt.Rows(currentrecord)
        X_PARTY_data = dr("cust_code").ToString
        access.addparam1("@x1", X_PARTY_data)
        access.Execquery("select PARTY_CODE,INVOICE_NO,INVOICE_DATE,INVOICE_AMOUNT_tax,balance_amount,recived_amount,sl_trancode,ID " & _
                         "from inv_report " & _
                         "where PARTY_CODE=@x1")
        If currentrecord > access.dbdt.Rows.Count - 1 Then
            currentrecord = 0
            access.Execquery("select cust_code from CUSTOMER_MASTER ")
            NextRecord(1)
             Loop
        End If


    While currentrecord < access.recordcount
        'value_sls_inv
        Dim drr As DataRow = access.dbdt.Rows(currentrecord)
        inv_no = drr("INVOICE_NO").ToString
        inv_dt = drr("INVOICE_DATE").ToString
        i_tot = drr("INVOICE_AMOUNT_tax").ToString
        bal_tot = drr("balance_amount").ToString
        rec_tot = drr("recived_amount").ToString
        p_cd = drr("PARTY_CODE").ToString
        tran_cd = drr("sl_trancode").ToString
        m_id = drr("ID").ToString

        num1 = num1 + i_tot
        num2 = num2 + bal_tot
        num3 = num3 + rec_tot
        If currentrecord = access.recordcount Then
            Exit While
        End If
        NextRecord(1)
        rcont1 = rcont1 + 1
        MsgBox("R1" & rcont1)
    End While
    access.addparam("@RP1", inv_no)
    access.addparam1("@rp2", inv_dt)
    access.addparam1("@rp3", i_tot)
    access.addparam1("@rp4", bal_tot)
    access.addparam1("@rp5", rec_tot)
    access.addparam1("@rp6", p_cd)
    access.addparam1("@rp7", tran_cd)
    access.addparam1("@rp8", m_id)
    access.Execquery("insert into value_sls_inv(INVOICE_NO,[INVOICE_DATE],[INVOICE_AMOUNT_tax],[balance_amount],[recived_amount],[PARTY_CODE],[id]) " & _
                     "values(@RP1,@RP2,@RP3,@RP4,@RP5,@RP6,@RP7,@RP8) ")
    If NoErrors(True) = False Then MsgBox(access.Exception)


    Loop