[سؤال] مشكلة ال Reader - نسخة قابلة للطباعة

كود :
Dim cmd As New SqlCommand("SELECT * FROM MonitoringReports WHERE EmployeeID = '" & TextBox9.Text & "' and LicensesNumber='" & TextBox1.Text & "'", con)

        Dim dr As SqlDataReader = cmd.ExecuteReader



        con.Open()



        If dr.Read = True Then

            TextBox8.Text = dr!EmployeeName

            TextBox9.Text = dr!EmployeeID

            DateTimePicker2.Value = dr!DateOfEntry

            TextBox1.Text = dr!LicensesNumber

            TextBox2.Text = dr!LicensesName

            TextBox5.Text = dr!LicensesType

            ComboBox6.Text = dr!LicensesCase

            ComboBox1.Text = dr!Location

            ComboBox2.Text = dr!Street

            TextBox3.Text = dr!NearOrNextTo

            ComboBox3.SelectedValue = dr!ActionType

            ComboBox7.SelectedValue = dr!ActionNumber

            ComboBox5.SelectedValue = dr!FineOrWarrningType

            TextBox4.Text = dr!Notes

            DateTimePicker1.Value = dr!DateOfFollow

        Else

            MsgBox("السجل غير موجود")

        End If



        dr.Close()

        cmd.Dispose()

        con.Close()