اسأل هنا و احنا نوصلك للحل بأسرع وقت إن شاء الله

كود :

  Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged



    End Sub



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim objSearcher As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_SoundDevice")

        Dim objCollection As System.Management.ManagementObjectCollection = objSearcher.Get()



        For Each obj As System.Management.ManagementObject In objCollection

            ComboBox1.Items.Add(obj.GetPropertyValue("Caption").ToString())

        Next

    End Sub

كود :

Imports System.Data.OleDb

Public Class Form8



    Sub FillLstv()

        ListView1.Items.Clear()

        Dim cn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")

        Dim da As New OleDbDataAdapter("Select * from Rent where Cus_Name Like '%" & TextBox1.Text.Trim() & "%' or Cus_Private_Number Like '%" & TextBox2.Text.Trim() & "%'", cn)



        Dim dt As New DataTable

        da.Fill(dt)



        For Each dr As DataRow In dt.Rows

            Dim itm As New ListViewItem(dr("Cus_Name").ToString())

            itm.SubItems.Add(dr("Cus_Private_Number").ToString())

            itm.SubItems.Add(dr("Cus_Address").ToString())

            itm.SubItems.Add(dr("Cus_Telephone_Number").ToString())

            itm.SubItems.Add(dr("Equ_Name").ToString())

            itm.SubItems.Add(dr("Equ_Qantity").ToString())

            itm.SubItems.Add(dr("Equ_Price").ToString())

            itm.SubItems.Add(dr("Rent_Date").ToString())

            ListView1.Items.Add(itm)

        Next

    End Sub

    Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        FillLstv()

    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        FillLstv()

    End Sub



    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        FillLstv()

    End Sub

End Class