[RESOLVED] MS Access VBA addItem List view

[FishGuy]

I am getting an error on this line of code, hope someone can help.
As you can see all I want to do is loop through the dataset and add column 1 to a list view for each row.

Me.lstEmpStates.RowSourceType = ValueList
While Not rs.BOF And Not rs.EOF
[U]Me.lstEmpStates.Additem rs.DataMember(rs.RecordCount, 1)[/U]
rs.MoveNext