title: Getting a "Run-time error '380': Could not set the Value property. Invalid property value." error when assigning a value to combobox 'value' property
body: <p>Here's the setup: As part of a multiple batting cage scheduling program I am developing, a data dictionary (dReservData) is loaded with data for all the reservations for a selected date.  There are 16 fields loaded into dReservData.  When a specific reservation is selected by the user, controls on a form are loaded with the appropriate fields from the data dictionary for that reservation.  (In the interest of brevity, I only included what I think is the relevant portion of the code.)  The "Run-time error '380': Could not set the Value property. Invalid property value." error occurs when I try to assign the value 1 (which you can see from the output of the Debug statement) to the value property of a combobox (combo_ReservationsInstructor).  The combobox has 2 columns and is pre-populated with an N x 2 array of Instructor ID's and Names.  I am trying to use the assignment of an instructor ID (in this case, ID '1') to the combobox's value property as a means of programmatically selecting an item in the combo.</p>
  
  <pre><code>With form_APScheduler
      .tb_ReservationsBeginTime.Value = dReservData(BegTime)(iStepRes)
      .tb_ReservationsEndTime.Value = dReservData(EndTime)(iStepRes)
      .tb_ReservationsNote.Value = dReservData(ResNote)(iStepRes)
  
      If dReservData(RentType)(iStepRes) = "Lesson" Or dReservData(RentType)(iStepRes) = "CageRental" Then
  
          If dReservData(RentType)(iStepRes) = "Lesson" Then
              .combo_ReservationsType.Value = "Lesson"
              Debug.Print "dReservData(ResInstructor)(iStepRes) = " &amp; dReservData(ResInstructor)(iStepRes)    'Debug output: dReservData(ResInstructor)(iStepRes) = 1
              .combo_ReservationsInstructor.Value = dReservData(ResInstructor)(iStepRes)   '***ERROR OCCURS HERE
  
          ElseIf dReservData(RentType)(iStepRes) = "CageRental" Then
              .combo_ReservationsType.Value = "CageRental"
  
          End If
  </code></pre>