Private Sub CmdSearch_Click()
Dim searchSQL As String
If TextSerCondition <> "" Then
If Option1(0).Value Then
searchSQL = "select * from works where work_id='" & Trim(TextSerCondition.Text) & "'"
If Option1(1).Value Then
searchSQL = "select * from works where name='" & Trim(TextSerCondition.Text) & "'"
If Option1(2).Value Then
searchSQL = "select * from works where section='" & Trim(TextSerCondition.Text) & "'"
If Option1(3).Value Then
searchSQL = "select * from works where faculty='" & Trim(TextSerCondition.Text) & "'"
End If
End If
End If
End If
Adodc3.RecordSource = searchSQL
Adodc3.Refresh
End If
End Sub
第一个Option是对号码（数字）查询,查询正确。但后三个是对文字信息进行查询的，但都不能得到正确结果，我是把查询得到的结果放到Adodc3所连接的DataGrid中显示的，求大侠帮助。

Option1(0)是对号码(数字)进行查询...数值在sql中..不是用加'单引号的...而你说的查询正确..不知道是什么..
其它的不正确...可能关键在于..你的if语句问题....看看书..if语句是什么用的吧..怎么样嵌套的吧.

就是说能够对第一个option1(0)中输入的数字进入正确查询，得到所需要的查询结果，但其它的进行查询时
报的错误都是说没有为对象设置命令，且说错误出现在语句Adodc3.Refresh中。不晓得么回事咧！

噢，晓得了，原来问题出现在if 语句的嵌套结构中了。学习…………………………
感谢大侠提醒！

还有一个问题，也是查询，只是要实现对时间字段的四种查询（= ，<，>， <>）
我的语句是这样的
If ComboSerTime.Text = "!=" Then
searchSQL = "select * from works where train_time<>'" & Trim(TextSerTime.Text) & "'"
End If
Adodc3.RecordSource = searchSQL
Adodc3.Refresh
这个通过在ComboSerTime中选择查询条件（= ，<，>， <>）在TextSerTime中输入时间（SMALLDATETIME格式的）
但查询冒得么反映！会是么问题啊？

有哪个函数可以判断Text框内输入的是否为时间格式，如果是再用哪个函数将其转换为SMALLDATATIME类型的咧！

但如果是模糊搜索名字
比如在text1.text输入一个字"王"
并把查询结果输出在dbgrid1上,
代码应该怎么写呢?

这个用select case 更好一点，比较好阅读