Dim strQuery As String
   If Checkpinzhong.Value = 1 Then
      If strQuery = "" Then
         strQuery = " pinzhong like '% " + txtpinzhong.Text + "%'"
      Else
         strQuery = strQuery & "and pinzhong like '% " + txtpinzhong.Text + "%'"
      End If
   End If
   If Checkfengchan.Value = 1 Then
      If strQuery = "" Then
         strQuery = " fengchanxing like '%" + txtfengchan.Text + "%'"
      Else
         strQuery = strQuery & "and fengchanxing like '%" + txtfengchan.Text + "%'"
      End If
   End If
    Adodc1.RecordSource = "select * from Taoziyuan where" & strQuery
    Adodc1.Refresh
    Exit Sub