vb.net - datareader を使用して次のレコードを読み取れない

Question

複数のテーブルからデータを取得し、Crystal レポートを生成したいと考えています。したがって、新しいテーブルを作成し、レポートを生成する必要があるたびに値を挿入しました。したがって、次のコードを使用して、これらのテーブルからデータを取得しています。

コード：

 Private Sub gen_Report()

    Dim dr, dr1, dr2 As OleDb.OleDbDataReader
    Dim cmd, cmdDel, comm_inv1, comm_invuser As OleDb.OleDbCommand

    If cnnOLEDB.State = ConnectionState.Closed Then
        cnnOLEDB.Open()
    End If
    Dim strDelInsRp As String = ("DELETE  FROM Inst_Report")
    cmdDel = New OleDb.OleDbCommand(strDelInsRp, cnnOLEDB)
    cmdDel.Parameters.AddWithValue("@chlno", cmbChal_no.Text)
    cmdDel.ExecuteNonQuery()

    Dim strSelIns As String = ("SELECT * FROM Installation_det where Chalan_No=@chlno")
    cmd = New OleDb.OleDbCommand(strSelIns, cnnOLEDB)
    cmd.Parameters.AddWithValue("@chlno", cmbChal_no.Text)


    dr = cmd.ExecuteReader
    Try

        Do While dr.Read = True

            mach_srno = dr("Machine_SrNo")
            tft_srno = dr("TFT_SrNo")
            chl_no = dr("Chalan_No")
            usernm = dr("User_Name")
            ins_dt = dr("Date_Of_Installation")
            war_perd = dr("Warranty_Period")
            war_till = dr("Warranty_Valid_Till")

            Dim strSelInv1 As String = ("SELECT * FROM INVOICE_ONE where LAY_NO='VDC' AND CHL_NO=@chn_no ")
            comm_inv1 = New OleDb.OleDbCommand(strSelInv1, cnnOLEDB)
            comm_inv1.Parameters.AddWithValue("@chn_no", chl_no)

            dr1 = comm_inv1.ExecuteReader
            If dr1.Read = True Then

                doc_no = dr1("DOCU_NO")
                code_no = dr1("CODE_NO")
                memb_nm = dr1("MEMB_NM")

                Dim strSelInvUser As String = ("SELECT * FROM INVOICE_USER where CODE_NO=@code AND LAY_NO='VDC' AND DOCU_NO=@docno")
                comm_invuser = New OleDb.OleDbCommand(strSelInvUser, cnnOLEDB)
                comm_invuser.Parameters.AddWithValue("@code", code_no)
                comm_invuser.Parameters.AddWithValue("@docno", doc_no)

                dr2 = comm_invuser.ExecuteReader

                If dr2.Read = True Then
                    User_add = dr2("ILEN2") & dr2("ILEN3") & dr2("ILEN4") & dr2("ILEN5")
                End If
                dr2.Close()
            End If
            dr1.Close()
            Dim strInsRep As String = "INSERT INTO Inst_Report(Mach_srNo,TFT_srNo,Mem_nm,UserNm,Dt_Inst,War_Per,war_till,User_Address) VALUES (@mach_srno,@tft_no,@mem_nm,@uname,@inst_dt,@war_per,@war_till,@address)"
            Dim comm_InsRep As OleDb.OleDbCommand = New OleDb.OleDbCommand(strInsRep, cnnOLEDB)

            comm_InsRep.Parameters.AddWithValue("@mach_srno", mach_srno)
            comm_InsRep.Parameters.AddWithValue("@tft_no", tft_srno)
            comm_InsRep.Parameters.AddWithValue("@mem_nm", memb_nm)
            comm_InsRep.Parameters.AddWithValue("@uname", usernm)
            comm_InsRep.Parameters.AddWithValue("@inst_dt", ins_dt)
            comm_InsRep.Parameters.AddWithValue("@war_per", war_perd)
            comm_InsRep.Parameters.AddWithValue("@war_till", war_till)
            comm_InsRep.Parameters.AddWithValue("@address", User_add)


            comm_InsRep.ExecuteNonQuery()


        Loop
        dr.Close()

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

しかし問題は、「do While Loop」を使用している場合でも、データリーダーが最初のレコードしか読み取らないことです。

別の質問があります:

フィールドの数が多いため、レポートを横向きで生成したいと考えています。では、レポートの向きを変更する方法。

Visual studio 2005 と MS-Access 2007 を使用しています。プログラミング言語は VB.NET です。