想运行查询，但提示：至少有一个参数未被指定值

Dim listid As Integer

Private Sub Combo1_Click()
Dim lblstr As String 'label2的提示语句
Select Case Combo1.ListIndex
Case 0
    lblstr = "商品编号："
Case 1
    lblstr = "商品名称："
Case 2
    lblstr = "销售商品编号："

End Select
listid = Combo1.ListIndex
Label2.Caption = lblstr
End Sub

Private Sub Command1_Click()
Dim sqlstr As String
Select Case listid
Case 0
    sqlstr = "Merchandise.M_ID_N='" & Trim(Text1.Text) & "'"
Case 1
    sqlstr = "Merchandise.M_Name_S='" & Trim(Text1.Text) & "'"
Case 2
    sqlstr = "Sell.S-MerchandiseID='" & Trim(Text1.Text) & "'"
End Select
show_result (sqlstr)
End Sub

Private Sub Form_Load()

Adodc1.Visible = False
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App. _
                        Path & "\merchandise.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Combo1.AddItem "M_ID_N", 0
Combo1.AddItem "M_Name_S", 1
Combo1.AddItem "S_MerchandiseID", 2
Combo1.ListIndex = 0
DataGrid1.AllowAddNew = False
DataGrid1.AllowUpdate = False
DataGrid1.AllowDelete = False
End Sub

Private Sub show_result(sqlstr As String)
Adodc1.RecordSource = "select merchandise.*,sell.* from merchandise,sell where merchandise.M_ID_N=sell.S-merchandiseID and " & sqlstr
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub


--------------------编程问答-------------------- Dim listid As Integer
改为：private listid As Integer 试试~~

补充：VB ,  数据库(包含打印，安装，报表)