I suspect this line needs to be altered
Code:
rs.Open "SELECT Count(*) from tblData where Type = 'NL Holdem Turbo'AND Entry = '6.00'", cn, adOpenForwardOnly
in:
VB Code:
  1. rs.Open "SELECT Count(*) from tblData where Type = 'NL Holdem Turbo AND Entry = '6.00' And Placed = 1" ', cn, adOpenForwardOnly

To count the number of placed items with the value 1

edit removed syntax error