VB6.0 Fill ListBox with Column Values

Call cnOPEN //ConnectionString Function
rs.Open "select * from mainmaster", cn, adOpenDynamic, adLockOptimistic
rs.MoveFirst
Do While Not rs.EOF
List1.AddItem rs!mainpager
rs.MoveNext
Loop