[الطالب]

سلام

كود :

Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
    Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
        Dim sql As String = " Select * from [Rent_Equipment] WHERE [Ren_NO] = @Ren_NO "
        Using da As New OleDbDataAdapter(sql, conn)
            da.SelectCommand.Parameters.AddWithValue("@Ren_NO", Val(ComboBox1.Text))
            Using dt As New DataTable
                da.Fill(dt)
                ListView1.Items.Clear()
                For Each row As DataRow In dt.Rows
                    ListView1.Items.Add(New ListViewItem({row("Equ_Name"), row("Equ_Quantity")}))
                Next
            End Using
        End Using
    End Using
End Sub

موفقين