datacombo的问题

我做一个弹药产品案例查询的程序，有几种弹药产品，每种产品有若干种失效形式，目的是在datacombo中显示所有失效形式，点击一个及在datagrid中显示，运行后，datacombo可以显示出所有失效形式，但我选择一个进行查询后，发现datacombo就只能显示这一个失效形式了。。。我想让datacombo一直能显示出全部失效形式，应该怎么修改
 Private Sub cmdQuery_Click()
    Dim strSQL As String
    If Trim(DataCombo1.Text) = "" Then
      MsgBox "查询关键词不能为空!", vbOKOnly + vbExclamation, "警告!"
      DataCombo1.SetFocus
      Exit Sub
    End If
    strSQL = "Select*From sxalcx Where 失效形式 like'%" & DataCombo1.Text & "%'"
    = adCmdText
    Adodc1.RecordSource = strSQL
    Adodc1.Refresh
End Sub
Private Sub cmdExit_Click()
End
End Sub
datacombo中的datafield属性为弹种，listfield属性为失效形式。希望哪位兄台帮忙看一下，谢谢了！！