新手请教一个查询的问题，谢谢！

Question

Me.Combo8.AddItem "水果"
Me.Combo8.AddItem "粮油"
Me.Combo8.AddItem "肉蛋禽"
Me.Combo8.AddItem "蔬菜"
Me.Combo8.AddItem "水产品"Me.Combo8.ListIndex = 0
Me.Adodc3.RecordSource = "select shangpinmingcheng from shangpin where shangpinzhonglei =" & "'" & Me.Combo8.Text & "'"
Me.Adodc3.Refresh
Me.Combo9.Clear
Do Until Me.Adodc3.Recordset.EOF
  Me.Combo9.AddItem Me.Adodc3.Recordset.Fields("shangpinmingcheng")
  Me.Combo9.Recordset.MoveNext
Loop

Answer 1

在form的load事件中没有combo8的默认值