我用vb 做了个查询，打包后放到其它电脑上运行出现错误，请各位帮忙解决，不好意思，忘记了，现重新发过。另外请问如何将四个查询条件同时查询，还有姓名查询时出现错误信息，请一起帮我查一下。先谢了

[[it] 本帖最后由 jxawgyl 于 2008-6-2 13:59 编辑 [/it]]

[[it] 本帖最后由 jxawgyl 于 2008-6-3 09:32 编辑 [/it]]

那是你的環境問題

窗体文件都没打包上来
什么错误?

在其他电脑上不能运行,要保证另外那台机器和你的电脑在同一个局域网内,除非你有公网IP,然后还打开一些网络服务,有防火墙还要配置防火墙

第二个问题 没有数据 无法解决

谢了三断笛，姓名查询的已解决，也可以在其它的电脑上运行，还没有解决的是指定时间的查询，我用了SQL：
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
Dim w As String  '声明变量，用来保存SQL语句字符串
  '如果没有选择部分信息，则退出
  If DTPicker1.Text = "" Then
    Exit Sub
  End If
  'DTPicker1.BoundText是当前的时间，
  '以此编号设置SQL语句，读取此时间内的所有病人药品信息
  w = "select  * from dbo.AdviceListView where roomcode=2000 and intime= '" _
           & DTPicker1.BoundText & "' order by intime desc"

  With Adodc1
  .RecordSource = w
  .Refresh
  End With
  With DataGrid1
  .RecordSource = w
  .Refresh
  End With
End Sub
但没用，请帮我看一下

set DataGrid1.DataSource=Adodc1 '是记录集,不是SQL语句
DataGrid1.Refresh

不好意思，还是没有搞清楚，能具体的说一声。谢了

改代码:
  With DataGrid1
  .RecordSource = w'这个w是SQL语句,而不是记录集
  .Refresh
  End With
为:
set DataGrid1.DataSource=Adodc1 '是记录集,不是SQL语句
DataGrid1.Refresh
'DataGrid的数据源只能是记录集,不能是SQL语句