ListView not displaying information on all fields

[mrdod]

I have a Query that definitely contains information! I step through my code and the information is being retrieved but when I display the ListView control I have 4 fields with no values. I am not understanding what the heck is going on here. I'm sure it's something simple. I've recreated the query, recreated the fields in the table, recreated the query again?????? Anyone have somthing here? Please??????

With Form_frmmainscreen.lviewproduction.ColumnHeaders
.Add , , "Counter", 0, lvwColumnLeft
.Add , , "Date", 1500, lvwColumnCenter
.Add , , "Comments", 1500, lvwColumnCenter
.Add , , "Area", 2000, lvwColumnCenter
.Add , , "Name", 1500, lvwColumnCenter
.Add , , "Shift", 1500, lvwColumnCenter
.Add , , "Part Number", 1500, lvwColumnCenter
.Add , , "WO", 1500, lvwColumnCenter
.Add , , "Yield", 1500, lvwColumnCenter
.Add , , "Hrs Worked", 1500, lvwColumnCenter
.Add , , "Hrs Running", 1500, lvwColumnCenter
.Add , , "Hrs Maint", 1500, lvwColumnCenter
.Add , , "Hrs Misc", 1500, lvwColumnCenter
.Add , , "Hrs QA", 1500, lvwColumnCenter
.Add , , "Hrs SA", 1500, lvwColumnCenter
.Add , , "Hrs Maint", 1500, lvwColumnCenter
.Add , , "Hrs Misc", 1500, lvwColumnCenter
.Add , , "Hrs QA", 1500, lvwColumnCenter
.Add , , "Hrs SA", 1500, lvwColumnCenter
.Add , , "Hrs Tooling", 1500, lvwColumnCenter
.Add , , "Hrs TPM", 1500, lvwColumnCenter
.Add , , "Hrs Training", 1500, lvwColumnCenter
.Add , , "Hrs SU", 1500, lvwColumnCenter
.Add , , "Scrap", 1500, lvwColumnCenter
End With
' Add items and subitems to list control.

rs.MoveFirst
Do Until rs.EOF
Set lstItem = Form_frmmainscreen.lviewproduction.ListItems.Add()
lstItem.Text = Nz(rs!Counter)
lstItem.SubItems(1) = Nz(rs![Date Entered])
lstItem.SubItems(2) = Nz(rs![Comments])
lstItem.SubItems(3) = Nz(rs![Area])
lstItem.SubItems(4) = Nz(rs![Name])
lstItem.SubItems(5) = Nz(rs![Shift])
lstItem.SubItems(6) = Nz(rs![Part Number])
lstItem.SubItems(7) = Nz(rs![WO Number])
lstItem.SubItems(8) = Nz(rs![Yield])
lstItem.SubItems(9) = Nz(rs![Hrs Worked])
lstItem.SubItems(10) = Nz(rs![Hrs Running])
lstItem.SubItems(11) = Nz(rs![Hrs Maint])
lstItem.SubItems(12) = Nz(rs![Hrs Misc])
lstItem.SubItems(13) = Nz(rs![Hrs QA])
lstItem.SubItems(14) = Nz(rs![Hrs SA])
lstItem.SubItems(15) = Nz(rs![Hrs Tooling])
lstItem.SubItems(16) = Nz(rs![Hrs TPM])
lstItem.SubItems(17) = Nz(rs![Hrs Training])
lstItem.SubItems(18) = Nz(rs![Hrs SU])
lstItem.SubItems(19) = Nz(rs![Scrap])


'Next row
rs.MoveNext
Loop
'close recordset
rs.Close
Set rs = Nothing

 

[mrdod]

Nevermind!! I am stupid. I found my mistake. I'd try hurting myself but would probably mess that up and hurt someone else.