請教兩個問題.....(編號：1887)

請問各位大哥
請教二個VB的問題
Q1:我有一個資料表a,欄位是b(格式 2000/3/17 AM 03:15:24)
如今我要查詢一段時間內的資料,且日期是今天的SQL語法要如何寫
　 例如 AM 09:00:00 到 PM 05:00:00 日期是 A1=FORMAT(NOW,"YYYY/MM/DD")

Q2:我有兩個表單F1,F2...兩個表單共用一個算流水號的資料表,當F1叫出F2後,
在F2中新增一筆資料後UNLOAD F2回到F1,繼續再F1新增資料時卻發生錯誤,
　 rs2("no")=rs2("no")+1無法加1,發生20=20+1的錯誤

Private Sub water()
Dim mydate, mynumber
　'算出流水號
　
　mydate = rs2("da")

1　If mydate = Date Then
2　　rs2("no") = rs2("no") + 1
3　　rs2.Update
4　ElseIf mydate ＜ Date Then
5　　rs2("da") = Date
6　　rs2("no") = 1
7　　rs2.Update
8　End If

End Sub

麻煩大家幫個忙,感激不盡,謝謝先.......