不显示删除回复 显示所有回复 显示星级回复 显示得分回复 收藏 VB中关于日期和时间的问题，求解救！

Question

Private Sub Form_Load()
txt_end.text=now
end sub
Private Sub cmd1_click()
........(略)
Set JRS = conn.Execute("select sum(AMOUNT) from CT_ACCOUNT where( MAKEDATE between'" & Trim(Txt_Start.Text) & "'and '" & Trim(Txt_End.Text) & "') and (type_id='1' or (type_id='5' and butype_id='1'))")
........(略)但是每次实时查询的都是对的，如果我查询2012-12-9到2012-12-10，可是选择查询的结果都是2012-12-10 00:00:00的数据，如何将2012-12-10 00:00:00变成2012-12-10 23:59:59,
按照其他大侠的建议这么写则提示，“char从字符串转为DATETIME时发生语法错误” 
Set JRS = conn.Execute("select sum(AMOUNT) from CT_ACCOUNT where( MAKEDATE between'" & Trim(Txt_Start.Text) & "' and '" & Trim(Txt_End.Text) & " 23:59:59') and (type_id='1' or (type_id='5' and butype_id='1'))")
请不要解释一两句，小弟初学者求详解，，，

Answer 1

http://hi.baidu.com/iamljj/item/5ae8b13e8602a0fede222190

Answer 2

日期字段 datatime类型
查询为：Set JRS = conn.Execute("select sum(AMOUNT) from CT_ACCOUNT where( MAKEDATE between #" & cstr(int(Txt_Start.Text))) & "# and #" & cstr(cdate(int(Txt_End.Text))) & " 23:59:59#) and (type_id='1' or (type_id='5' and butype_id='1'))")

Answer 3

打错了：Set JRS = conn.Execute("select sum(AMOUNT) from CT_ACCOUNT where( MAKEDATE between #" & cstr(int(cdate(Txt_Start.Text))) & "# and #" & cstr(int(cdate(Txt_End.Text))) & " 23:59:59#) and (type_id='1' or (type_id='5' and butype_id='1'))")