Have you tried concatenating you SQL string:
strSQL = "select from ... Where "
strSQL = strSQL & "(fieldForState = '" & 1stselState & "')"
strSQL = strSQL & " AND "(fieldForState = '" & 1stselState & "')"
strSQL = strSQL & " AND "(fieldForState = '" & 1stselState & "')"