Private Sub TB_TimKiem_TextChanged(sender As Object, e As EventArgs) Handles TB_TimKiem.TextChanged

        If TB_TimKiem.Text <> "" Then

            MH_DSKhach.Items.Clear()

            DSKhach = XL_DuLieu.DocDuLieu("Select * from KhachHang where KH_Xoa = false and KH_Ten like '%" + TB_TimKiem.Text + "%'")

            For Each KhachHang As DataRow In DSKhach.Rows

                Dim KH As ListViewItem = New ListViewItem(KhachHang("KH_Ten").ToString)

                KH.SubItems.Add(KhachHang("KH_DiaChi"))

                KH.SubItems.Add(KhachHang("KH_MoTa"))

                MH_DSKhach.Items.Add(KH)

            Next

        Else

            MH_KhachHang_Load(sender, e)

        End If

    End Sub