TextBox30.Text = ("vergidairesi")
Burada eşittir işaretinden donra DataReader için kullandığınız değişkeni yazmamışsınız yani dr yazılmamış. DB yükleyip deneme şansım yok şu anda ancak hata yaptığınız yerde satırda BreakPoint koyup Debug yapacak olursanız hatanızı daha iyi yakalarsınız.
Siz bir kontrol edin eğer halledemezseniz daha ayrıntılı incelemeye çalışacağım.