本人刚学Vb请大虾们耐心指教！谢谢！
Private Sub Form_Load()
Dim strNum As String
With Drug_Store.rsShoppingCars
If .State = adStateClosed Then .Open
.Requery
.Filter = " 日期 Like '" & Date & "%'" 出错的地方 过滤器不能被打开。
If .EOF Then
strNum = Format(Date, "yymmdd") & "00001"
Else
.MoveLast
strNum = Right(.Fields("编号"), 5)
strNum = Format(Val(strNum) + 1, "00000")
strNum = Format(Date, "yymmdd") & strNum
End If
End With
TxtNumber = "T" & strNum
End Sub


[解决办法]
要求是什么？
[解决办法]
日期 = date 不行？
[解决办法]
"日期 Like ……" ,可以直接用datepart()
[解决办法]
日期是什么格式？