Здравствуйте, подскажите пожалуйста
Как правильно добавить условие(Если, То, Иначе) в функцию VBA

В ФормеТипЛенточная написана функция для фильтрации

Sub SetFilter()
    Dim s, sS, sP, sD, sD1, sD2
    If Len(Me.Поставщик & "") = 0 Then sP = "" Else sP = " and [Поставщик]='" & Me.Поставщик & "'"
    If Len(Me.Город & "") = 0 Then sS = "" Else sS = " and [Город]='" & Me.Город & "'"
    sD1 = Format(Nz(Me.Data1, 0), "\#mm\/dd\/yyyy\#")
    sD2 = Format(Nz(Me.Data2, 100000), "\#mm\/dd\/yyyy\#")
    sD = " and [ДатаДоставки] between " & sD1 & " and " & sD2
    s = " true " & sP & sS & sD
    Me.Filter = s
    Me.FilterOn = True
End Sub

Проблема: Если в столбике [ДатаДоставки] есть хоть одна запись с пустым значение, то фильтр работает не коректно (из результата выпадают записи с "пустой датой")

Вопрос: [КакПравильноДобавить] следующее условие:
Если (В столбике[ДатаДоставки] есть хоть одна запись равная "пустоте"), То
s = " true " & sS & sP
Иначе
s = " true " & sS & sP & sD

П.с. Так не работает

Sub SetFilter()
    Dim s, sS, sP, sD, sD1, sD2
    If Len(Me.Поставщик & "") = 0 Then sP = "" Else sP = " and [Поставщик]='" & Me.Поставщик & "'"
    If Len(Me.Город & "") = 0 Then sS = "" Else sS = " and [Город]='" & Me.Город & "'"
    sD1 = Format(Nz(Me.Data1, 0), "\#mm\/dd\/yyyy\#")
    sD2 = Format(Nz(Me.Data2, 100000), "\#mm\/dd\/yyyy\#")
    sD = " and [ДатаДоставки] between " & sD1 & " and " & sD2
        /* Так не работает */
             If (IsNull(Me.ДатаДоставки) = True) Then
                  s = " true " & sP & sS
             Else
                  s = " true " & sP & sS & sD
             End If
         /* Так не работает */
    Me.Filter = s
    Me.FilterOn = True
End Sub

http://www.sql.ru/forum/1176401/kak-pravilno-dobavit-uslovie-esli-to-inache-v-funkciu-vba