Hi,

I really need some help aligning my records. I am using the code below to fill up my listbox. But since each field lenth varies from record to record the alignment gets messed up. How do i do it so that each field starts in the right place all the time and end at a certain point before the next field is listed so that they are all aligned.

Thanks.

Sub Fill_HistoryList()

With rs

List2.Clear

Do While Not rs.EOF
formatDate = rs!Date
FormatTime = rs!Time
formatDate = (Format(formatDate, "Medium Date"))
FormatTime = (Format(FormatTime, "Medium Time"))

List2.AddItem " " & rs!ID & " " & formatDate & " " &
FormatTime & " " & rs!Name & " " & rs!History
rs.MoveNext
Loop

End With

End Sub