textbox_keyup อยากได้แบบว่าพอเปลี่ยนหมายเลข tag ก็ให้เปลี่ยนข้อมูลคนไข้ไปด้วยอ่าครับ

Private Sub txt_search_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txt_search.KeyUp
        sql = "select patient_name, patient_claim, patient_sex, patient_blood, patient_age,patient_image  from patients"
        Dim RDR = cmd_excuteReader()
        If RDR.HasRows Then
            Do While RDR.Read

                txt_show_name.Text = RDR.Item("patient_name").ToString()
                txt_show_blood.Text = RDR.Item("patient_blood").ToString()
                txt_show_claim.Text = RDR.Item("patient_claim").ToString()
                txt_show_sex.Text = RDR.Item("patient_sex").ToString()
                txt_show_age.Text = RDR.Item("patient_age").ToString()

            Loop
        End If
        RDR.close()

    End Sub