[Youssef1313]

كود :

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)
                  DataGridView1.DataSource = dt
              End Using
          End Using
End Using