我用两个控件option1与iption2,一个文本框，当选择option1时，
文本框等于："select * from dbo.Medicine where spell like'" _
      & Text1.Text & "%" & "'"
选择option2时，
文本框等于："select * from dbo.Medicine where fivepen like'" _
      & Text1.Text & "%" & "'"

我是这样写的：If Option1.Value = True Then
              text1.text = med

先申明     Dim med As String
med = "select medname,medspec,fivepen,spell from dbo.Medicine where spell like'" _
      & Text1.Text & "%" & "'"

运行不行，请各位指教。

从前日本成人用品 有个人非常自私，对别人的事从不关心，还常说：“别人的事，天大的也不要管。”因此别人送了他一个外号叫“天不管”。SM产品 一天，“天不管”买了一袋大米背回家。路上，袋子破了，米不断漏出来。同伴看见了，问他：“别人的事要不要管？”他不加思索他说：“天大的事也不管。”性器具一会儿，米漏掉了不少。同伴又问：“对人家丝袜 有好处的事难道也不管吗？”他还说：“只要对自己没有好处，一百个不管！”快到家时，“天不管”觉得肩上轻多了，这才发现一袋米已漏掉了半袋。他又气又急，责问他的同伴说：“你为什么不早点跟我说？”同伴学着他的腔调说：“不管，不管，SM用具 一百个不管！”