原先我就是用了一个条件，  Adodc2.RecordSource = "select * from 交易明细 where 账号='" & aa & "'"，现在我想多加约束条件，就是搜索在几号到几号之间进行的交易，请问该怎么写代码阿？谢谢啦

谢谢阿，请问#是什么意思啊，如果我想把字符串转成这种日期形式改用什么方法？

我自己写了段Adodc2.RecordSource = "select * from 交易明细 where 账号='" & aa & "' And 交易日期 Between # CDate(mid(s,23,10)) # And # CDate(mid(s,33,10)) #"
请问是不是不对阿，为什么我没有看到应该的结果？

不好意思我没有讲清楚，我作后台的，s是前台传过来的字符串，然后我截位进行比较。

呵呵，这个字符串一共10bit,格式如2006-4-23,抱歉阿

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

我看说明面讲只有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)) & """) & "#"

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

是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 "记录文件已导出。"