用一个文本框，里面输入2008-5-12（时间）可以查询表
Private Sub Text1_Change()
Dim s As String  '声明变量，用来保存SQL语句字符串

  '如果没有选择部分信息，则退出
  If Text1.Text = "" Then
    Exit Sub
  End If
  'text1.text是录入当前住院编号，
  '以此编号设置SQL语句，读取此住院号病人信息
  s = "select * from dbo.AdviceListView where  roomcode=2000 and exectime>='" _
           & Text1.Text & "' order by intime desc"
  With Adodc1
  .RecordSource = s
  .Refresh
  End With
End Sub
运行时错误信息：从字符串转换为datetime时发生语法错误
请各位改正
我用了另外的方法解决。

[[it] 本帖最后由 jxawgyl 于 2008-6-5 14:41 编辑 [/it]]

你输入的时间有问题
可能是格式有问题   也可能是写了个根本不存在的时间 如 2008-4-31 00:00:00

时间是存在的，但不知错在哪？应如何写呢，请指教。

'text1.text是录入当前住院编号，
還是時間。。。。。時間從哪里來