Private Sub insearch(ByVal sql As String)
  Set cn = New Connection
  cn.CursorLocation = adUseClient
  cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\jxc.mdb;"
Set rs = New adodb.Recordset
rs.LockType = adLockOptimistic
If Len(Trim(sql)) <= 0 Then
   rs.Open "select * from instore ", cn, adOpenDynamic
   
Else
   rs.Open "select * from instore union select * from WSPdrawing where " & Trim(sql), cn, adOpenDynamic
End If

   Set DataGrid1.DataSource = rs
End Sub

这上面的代码只能把表"WSPdrawing"中的筛选出来,而表"instore"中还是全都显示出来,但是如果上面只搜索一个表的话就可以筛选出来,为什么?

where中条件只被一个sql语句用到了吧（我猜的），你调试一下，把sql语句调出来看看呢

怎么调啊,我试了一下没有用么

你这个是吧，说实话还在学习中，我也不知道怎么调，但是中sql语句都是有视图能看到的，就可以知道是不是sql语句的逻辑出现问题，或着该有的 条件没有链接到sql语句上

2

学习

没弄明白！