我的语句是：
Private Sub cmd_ok_Click()
Dim sql As String  '声明变量，用来保存SQL语句字符串
sql = "select * from AdviceListView  where  roomcode=2000 " & _
    " and sendopecode>0 " & _
    " and exectime>'" & Trim(DTPicker1.Value) & "' " & _
    " and exectime<'" & Trim(DTPicker2.Value) & "' " & _
    " and offcode= " & DataCombo1.BoundText & _
    " and patname like'" & Text2.Text & "%" & "' " & _
    " and medname like'" & Txtmed.Text & "%" & "' " & _
    " order by intime desc"
当选定时间时，运行不可以，当选offcide加时间，或offcode加medname加时间都可行，但是选时间加patname或时间加medname运行时出现提示“在关键字and附近有语法错误。我如果不先时间，其它条件同时都可运行。
我查不出，请各位抽出时间帮我看一下。

我想了一下，是不是控件 的问题，offcode用的是datacombo控件，其它用的是文本框控件，但是也不想不通，谁有时间请抽空看一看。

怎么还在问这个问题呢？
当DataCombo1.BoundText为空时语句就是这样的
sql = "select * from AdviceListView  where  roomcode=2000 " & _
    " and sendopecode>0 " & _
    " and exectime>'" & Trim(DTPicker1.Value) & "' " & _
    " and exectime<'" & Trim(DTPicker2.Value) & "' " & _
    " and offcode= " _
    " and patname like'" & Text2.Text & "%" & "' " & _
    " and medname like'" & Txtmed.Text & "%" & "' " & _
    " order by intime desc"

你试下把DataCombo1.BoundText 换成val(DataCombo1.BoundText )

谢了，三断笛。

你可以調試啊
用連接數據執行
再到立即窗體就可以看到啊

我试了一下，虽然不会报错，但是没有查询结果显示，除了加offcode有数据外，其它的还是和以前一样请再帮我看一看，

输出SQL语句到文本，直接在查询分析器中运行看是哪里的错误，然后对症下药。

我在查询分析器下运行，一切都正常，在vb中如exectime加hoscode查询却查不到数据，不知什么原因，请各位再帮我查一查，

找到原因了，是因为offcode为空，所以查不到数据，应如何解决？