过程声明与同名事件或过程的描述不相符

Private Sub CmbSearItem_Click()
Dim rscusname As ADODB.Recordset
Dim sql As String
On Error GoTo errdo
Set rscusname = New ADODB.Recordset
sql = "select distinct 商品编号 from 销售"
rscusname.Open sql, cont, adOpenKeyset, adLockOptimistic
Select Case CmbSearItem.Text
Case "店铺编号"
CmbFindvalue.Visible = True
TxtFindvalue.Visible = False
CmbFindvalue.Clear
CmbFindvalue.AddItem "d001"
CmbFindvalue.AddItem "d002"
CmbFindvalue.AddItem "d003"
CmbFindvalue.ListIndex = 0
Case "商品编号"
CmbFindvalue.Visible = True
TxtFindvalue.Visible = False
CmbFindvalue.Clear
Do While Not rscusname.EOF
CmbFindvalue.AddItem rscusname.Fields(0).Value
rscusname.MoveNext
Loop
Set rscusname = Nothing
CmbFindvalue.ListIndex = 0
Case Else
CmbFindvalue.Visible = False
TxtFindvalue.Visible = True

End Select
Exit Sub
errdo:
MsgBox Error(Err), vbCritical, "多项条件查询"
Resume Next
End Sub

cont在哪里定义的，什么类型
rscusname.Fields(0).Value 是数字类型吧，用CStr转换下。

贴出错误发生的行才好帮你。

就是第一句出现了问题

CmbSearItem是什么类型的控件？

combobox控件