vb+access日期间隔天数的问题

Question

Private Sub Form_Load()
Dim dbm As New Connection
Dim dbmre As New Recordset
dbmm = "admin"
dbm.CursorLocation = adUseClient
dbm.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\图书系统文件\bookmarket.mdb;Persist Security Info=False;Jet OLEDB:Database Password=" + dbmm
dbmre.Open "select * from reader ", dbm, adOpenStatic, adLockOptimistic

End Sub
请把语句补充完整.
在表reader中,有一列数据是 "借书日期" 为日期型,"剩余天数",数字型,,,我希望在我运行form load 时,,,DateDiff语句能自动的把"借书日期"中的日期数据与当前系统的日期时间想比较得出天数存放在 "剩余天数里"...如果可以实现,,,肯定加分.....

Answer 1

select 借书日期, datediff("d", 借书日期, 系统日期) 剩余天数 from reader