عرض بيانات موظف على listview - نسخة قابلة للطباعة

كود :
Private Sub t2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox13.KeyPress

        If Asc(e.KeyChar) = 13 Then

            Dim s As String = " SELECT EMPL_MAS.EMPL_NAME_LOC, Departments.DEPT_NAME_LOC, DIVISION.DIV_NAME_LOC FROM (Departments INNER JOIN EMPL_MAS ON Departments.DEPT_CODE = EMPL_MAS.DEPT_CODE) INNER JOIN DIVISION ON EMPL_MAS.DIV_CODE = DIVISION.DIV_CODE where EMPL_CODE=" + TextBox13.Text

            cn.Open()

            Dim cmd1 As New OleDbCommand(s, cn)

            Dim dr12 As OleDbDataReader = cmd1.ExecuteReader

            ListView1.Items.Clear()

            Dim ss1 As String

            Dim da21 As New OleDb.OleDbDataAdapter

            Dim dr21 As DataRow

            Dim dt21 As DataTable

            Dim DS1 As New DataSet

            ListView1.Items.Clear()

            da21 = New OleDb.OleDbDataAdapter(s, cn)

            DS1 = New DataSet

            da21.Fill(DS1, "s")

            dt21 = DS1.Tables("s")

            '*************************************

            If dr12.Read Then

                da21 = New OleDb.OleDbDataAdapter(s, cn)

                DS1 = New DataSet

                da21.Fill(DS1, "s")

                dt21 = DS1.Tables("s")

                Dim i As Integer

                For i = 0 To dt21.Rows.Count - 1

                    Dim litem As New ListViewItem

                    dr21 = dt21.Rows.Item(i)

                    On Error Resume Next

                    litem.Text = dt21.Rows(i).Item(dr12!EMPL_NAME_LOC)

                    litem.SubItems.Add(dr12!EMPL_NAME_LOC)

                    litem.SubItems.Add(TextBox13.Text)

                     ListView1.Items.Add(litem)

                Next i

            End If

            dr12.Close()

            cn.Close()

        End If

    End Sub