多谢版主的支持，可是不知怎么的这句话好像引出了“类型不匹配”的错误。。。

我看说明面讲只有06/09/08的日期才能用between,所以我用了datevalue函数把代码改成如下，好像还是不行，怎么办啊？
Adodc2.RecordSource = "select * from 交易明细 where 账号='" & aa & "' And 交易日期 Between # " & DateValue(""" & CDate(Mid(s, 23, 10)) & """) & "# And #" & DateValue(""" & CDate(Mid(s, 33, 10)) & """) & "#"

请大家帮帮我的忙把，谢谢啊！

Adodc1.RecordSource = "select * from xsd where 日期 between " + Chr(35) + Str(DTPicker1.Value) + Chr(35) + "and " + Chr(35) + Str(DTPicker2.Value) + Chr(35) + "order by 日期"

你的那个S字符串是"2006-5-8 18:05:05"这个样子,还是"18:05:05"和"2006-5-8"这个样子.

是2006-05-08这个样子的

我的整个搜索功能的代码是这样子的：（好像没有把recordsource里面的东西和recordset里面的联系起来，请问我该怎么样把他们联系起来？）
Dim aa As String
aa = CStr(Mid(s, 19, 4))
Dim strFileName As String '文件名

Dim lngHandle As Long '句柄

Dim strWrite As String '要写入的文本内容

strFileName = "c:\test1.txt"

lngHandle = FreeFile() '取得句柄

Adodc2.RecordSource = "select * from 交易明细 where 账号='" & aa & "' " 'And 交易日期 Between # " & DateValue(""" & CDate(Mid(s, 23, 10)) & """) & "# And #" & DateValue(""" & CDate(Mid(s, 33, 10)) & """) & "#"

Adodc2.Refresh
Adodc2.Recordset.Update
Adodc2.Recordset.MoveFirst

strWrite = Adodc2.Recordset.GetString(adClipString, Adodc2.Recordset.RecordCount, vbTab, vbCrLf, "null")

Open strFileName For Output As lngHandle '打开文件

Print #lngHandle, strWrite '写入文本

Close lngHandle '关闭文件

SockServer.SendData "记录文件已导出。"

Dim aa As String
aa = CStr(Mid(s, 19, 4)) s="2006-05-08" aa取出其中什么字符,s的长度只有10

Dim strFileName As String '文件名

Dim lngHandle As Long '句柄

Dim strWrite As String '要写入的文本内容

strFileName = "c:\test1.txt"

lngHandle = FreeFile() '取得句柄

Adodc2.RecordSource = "select * from 交易明细 where 账号='" & aa & "' " 'And 交易日期 Between # " & CDate(s) & "# And #" & CDate(s) & "#"

Adodc2.Refresh
Adodc2.Recordset.Update
Adodc2.Recordset.MoveFirst

strWrite = Adodc2.Recordset.GetString(adClipString, Adodc2.Recordset.RecordCount, vbTab, vbCrLf, "null")

Open strFileName For Output As lngHandle '打开文件

Print #lngHandle, strWrite '写入文本

Close lngHandle '关闭文件

SockServer.SendData "记录文件已导出。"

[此贴子已经被作者于2006-5-9 8:36:12编辑过]

Adodc2.RecordSource = "select * from 交易明细 where 账号='" & aa & "' " 'And 交易日期 Between # " & CDate(s) & "# And #" & CDate(s) & "#"

上面语句如果 从两个表 from ,是不是查到的记录不能修改呀?而from一个表可以?怎么解决这个问题呀?