Populate multicolumn listbox with sql query recordset having multiple rows

Question

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("Bil