Do List1.AddItem .Recordset.Fields(0).Value List1.ItemData(List1.NewIndex) = Recordset.Fields(x).Value .Recordset.MoveNext Loop Until .Recordset.EOF