Açılır kutuda yazdığınız her şey çalışır vaziyette. Hatanız tabloda olmayan/yanlış şeyi aramanızdan kaynaklanıyor.

strSQL = "SELECT * FROM TBLDOVIZ WHERE AKTIF=" & E & "  ORDER BY DOVIZKODU "

Burada Where kısmında Aktif isimli alanın değerinin E olmasını söylüyorsunuz. Halbuki açılır kutunuzdan böyle bir sonuç gelmemekte.

Çözüm için ipucu vereyim bakalım halledebilecek misiniz?

Açılan kutunun değerinin ne olduğunu MsgBox komutu ile anlayabilirsiniz.