title: Populate multicolumn listbox with sql query recordset having multiple rows
body: <pre><code>Private Sub Combo13_AfterUpdate()
      Dim v1 As Variant: Dim i,i3, i1, i2 As Integer: Dim rst As Recordset
      v1 = Combo13.Value  'combo13 is the list box
      Set v1 = CurrentDb(&quot;Bills&quot;)   'bills is the table name
      Set rst = CurrentDb.OpenRecordset(&quot;select *  from bills where billnumber = &quot; &amp; Combo13.Value &amp; &quot;;&quot;)
      i1 = &quot;select count(*) from bills where billnumber = &quot; &amp; Combo13.Value &amp; &quot;)&quot;
      i2 = rst.Fields.Count
      For i = 1 To i1
          For i3 = 1 To 12
          With List6
               .AddItem rst.Fields(i2).Value 
                rst.MoveNext
          End With
          Next i2
      Next i1
      Set rst = Nothing   
  End Sub
  </code></pre>