ÒÔÏÂSQL語¾äÓÐ問題嗎£¿

ÒÔÏÂSQL語¾äÓÐ問題嗎£¬
Ôõô無·¨實現¹¦ÄÜ£¿
VB code:

If Len(Time) = 7 Then '當Ç°時間長¶ÈµÈÓÚ7룬±íʾ當Ç°時間<10£º00£º00
If Left(Time, 1) * 3600 + Mid(Time, 3, 2) * 60 + Mid(Time, 6, 2) < 2800 Then 'Èç¹û當Ç°時間СÓÚ8點£¬計ËãÒ»ÌìÖÜÆÚ為Ç°Ò»Ìì8點µ½該Ìì該時間
sql3 = "select SN,Name,Skuno,Barcode,InputDateTime,InStorageUser,Flag from Info where AnalysisID='" & AnalysisIDCombo.Text & "' and (ShoppingInDateTime between # " & (Date - 1) + CDate(Format(80000, #12:00:00 AM#)) & "# and #" & Now & "#) order by ShoppingInDateTime"
GoTo DataGrid1
Else 'Èç¹û當Ç°時間´óÓÚ8點£¬計ËãÒ»ÌìÖÜÆÚ為該Ìì8點µ½該Ìì該時間
sql3 = "select SN,Name,Skuno,Barcode,InputDateTime,InStorageUser,Flag from Info where AnalysisID='" & AnalysisIDCombo.Text & "' and (ShoppingInDateTime between # " & Date + CDate(Format(80000