Добрый день! Где-то я намудрил

Dim flt1 As String
Dim flt3 As String
'.....
'.....
flt1 = "[Кем занят] Like '" & Me.Поле30.Text & "*'"
flt3 = "[Дата заезда] Like #" & Me.Поле34 & "#"
 
'.....
'.....
        Me.Filter = Left(flt1, Len(flt1) - 1) And Right(flt3, Len(flt3) - 1)
        Me.FilterOn = True

Так все работает:

Me.Filter = flt1
        Me.FilterOn = True

в чем лажа? Заранее спасибо.

http://www.sql.ru/forum/1206171/oshibka-pri-obedinenii-dvuh-filtrov