title: ListBox or Combobox ADODB imported Decimal items invisible in the list
body: <p>I have encountered this problem several times already and have been able to work around it till now. Also the almighty search engines didn't help me.</p>
  
  <p>The problem is that when I have populated a listbox or combobox from a ADODB recordset all Decimal data elements are not visible in the box, for example with the following (conn is a ADODB connection):</p>
  
  <pre><code>Private Sub GetFilteredRecords()
      Dim strSQL As String
      Dim arr As Variant
  
      'create the SQL
      strSQL = "SELECT * FROM vwStandard_Fee2"
  
      'execute the SQL and fill the rs ( rsFiltered )
      Set rsFiltered = conn.Execute(strSQL)
  
      'Apply recordset to the listbox on the form
      If Not (rsFiltered.EOF = True And rsFiltered.BOF = True) Then
          arr = rsFiltered.GetRows()
          With lbDeeper
              .ColumnCount = rsFiltered.Fields.Count
              .List = TransposeArray(arr)
          End With
          With cbDeeper
              .ColumnCount = rsFiltered.Fields.Count
              .List = TransposeArray(arr)
          End With
      End If
  
  End Sub
  </code></pre>
  
  <p>Above contains 6 columns of Ids (all show Type = Variant/Decimal), of which the containing values are all not "shown" for some strange reason. Only the String and Date columns are shown normally, the Decimals are there but empty!</p>
  
  <p>Here some snippets:</p>
  
  <p><img src="https://i.stack.imgur.com/qo2iN.jpg" alt="General layout of arr"></p>
  
  <p><img src="https://i.stack.imgur.com/309iO.jpg" alt="String is shown, decimal is not shown"></p>
  
  <p><img src="https://i.stack.imgur.com/lgdrz.jpg" alt="See that EUR is shown and the decimal field next to it isnt!"></p>
  
  <p>Now in case of a combo box I can get one column's value shown if their column the BoundColumn when I select that listitem, but only in the value fo the combobox (so still not in the list).</p>
  
  <p>My initial workaround was to convert them into String values before adding to the Listbox/Combobox, in this case however I want to directly link the query result to the Box.List without looking at the details. And thus I am looking for a solution in stead of a work around.</p>
  
  <p>In short: my numerical field items are invisible BY DEFAULT for some strange reason. Workaround was to make the items String values. I am now looking for a solution for this bug/problem instead:</p>
  
  <ol>
  <li>What is causing this? </li>
  <li>How to solve it?</li>
  </ol>