主题：请各位老师帮忙看看这段代码有什么问题

下面的这段代码在执行时，不管是否能够查询得到“症状”，都要显示提示对话框“未找到所述症状情况！”。

Dim Filter As String
With e.Form.Controls("症状描述")
    If .Value Is Nothing Then
        MessageBox.Show("请输入症状情况!", "提示")
        Return
    End If
End With
Dim cmb As WinForm.ComboBox = e.Form.Controls("疾病名")
Dim str As String = e.Form.Controls("症状描述").Text
e.Form.Controls("疾病名").ComboList = DataTables("jbmb").GetComboListString("疾病名","症状 Like '%" & str & "%'")
If e.Form.Controls("疾病名").ComboList = Nothing Then
    MessageBox.Show("未找到所述症状!请重新输入!", "提示")
End If

按照老师的代码，问题果然解决了。看样子还是逻辑关系和次序问题乱了。非常感谢老师的指导！