สอบถามเกี่ยวกับ Combobox เวลาค้นหา ปัจจุบันใช้ radiobutton ในการค้นหาอยู่ครับ

  Private Sub Txt_Pri_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Txt_Pri.SelectedIndexChanged
    'code
    End Sub

 Private Sub Txt_Status_TextChanged(sender As Object, e As EventArgs) Handles Txt_Status.TextChanged
        For index As Integer = 0 To (Txt_Status.Items.Count - 1)
            If Txt_Status.Text = Txt_Status.Items(index).ToString() Then
            Else
                Txt_Status.Text = ""
            End If
        Next
    End Sub

  Private Sub Txt_Pri_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Txt_Pri.SelectedIndexChanged
     checkbox1.checked = true
  End Sub

 Private Sub Txt_Status_TextChanged(sender As Object, e As EventArgs) Handles Txt_Status.TextChanged
       For index As Integer = 0 To (Txt_Status.Items.Count - 1)
           If Txt_Status.Text = Txt_Status.Items(index).ToString() Then
           Else
               Txt_Status.Text = ""
           End If
       Next
   End Sub

    If checkbox1.checked Then
       // ตามที่ wathotza เขียนอยู่ก็ได้ครับ
    endif

IF True Then
...
Else 
...
End If

    Private Sub Form_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim cboTestData = {New With {.ID = "add_firstname", .Name = "ค้นหาตามชื่อ"},
                           New With {.ID = "add_lastname", .Name = "ค้นหาตามนามสกุล"},
                           New With {.ID = "add_nickname", .Name = "ค้นหาตามชื่อเมียน้อย"},
                           New With {.ID = "add_department", .Name = "ค้นหาตามชื่อน้องเมียสุดที่รัก"}
                           }

        cboARTCode.DataSource = cboTestData 'cboTestData.ToList()
        cboARTCode.DisplayMember = "Name"
        cboARTCode.ValueMember = "ID"
    End Sub

    Private Sub cboARTCode_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboARTCode.SelectedIndexChanged
        Dim sField As String = cboARTCode.SelectedValue
        Dim makeLOVE As String = "Select * From Table Where 'หอย' = 'หอย'"
        If Not String.IsNullOrEmpty(sField) Then
            makeLOVE = makeLOVE + " And " + sField + " Like '" + TextBox10.Text + "%'"
        End If
        EXECUTESQLQuery()
    End Sub

Private Sub cboARTCode_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboARTCode.SelectedIndexChanged
    Dim sField As String = cboARTCode.SelectedValue
    Dim makeLOVE As String = "Select * From Table Where 'หอย' = 'หอย'"
    If Not String.IsNullOrEmpty(sField) Then
        makeLOVE = makeLOVE + " And " + sField + " Like '" + TextBox10.Text + "%'"
    End If
    EXECUTESQLQuery()
End Sub