本人刚学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
E