我用两个控件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 & "%" & "'"

运行不行，请各位指教。

是这样的，
Dim med As String
 '如果没有选择部分信息，则退出
  If Text1.Text = "" Then
    Exit Sub
  End If
med = "select * from Medicine where fivepen like'" _
      & Text1.Text & "%" & "'"
      With Adodc2
      .RecordSource = med
      .Refresh
      End With
      If modify = False Then
      End If
End Sub

option1（为spell），option2（为fivepen），当我选择option1时，
上面的med查询条件为
where spell like'" _
      & Text1.Text & "%" & "'"
反之则为 where fivepen like'" _
      & Text1.Text & "%" & "'"
不知我说清了吗？

没有人回答，我顶一下，希望有人能帮个忙。