Оператор "if (), else" в VBA MS Access

Как можно увеличить условия? Т. е. после 2 условий, начинаю писать 3-е, после чего он выдает ошибку (1). И еще, при выполнении первого условия вылезает пустое окно, как его убрать (2)?

If (log <> "") Then

Set rstt = db.OpenRecordset("Спарвка", dbOpenDynaset) 'dbOpenSnapshot)



rstt.MoveFirst

While Not rstt.EOF

If log = 1 Then

DoCmd.OpenForm "Ф1_Инф-ия1 "



Else

If log = 2 Then

DoCmd.OpenForm "Ф2_объезды"

2)

1)