If txtyear1.Text <> "" And cbolocal.Text <> "" And cboprize.Text <> "" And DCname.Text <> "" Then '條件全都有填
s = "select * from prizetable"
s = s & " where local = '" & cbolocal.Text & "'"
s = s & " and prize = '" & cboprize.Text & "'"
s = s & " and name = '" & DCname.Text & "'"