yalnız daha çalışmanızın en başında login olurken 2 hata veriyor
1 -

     KullaniciKim = Me.KullaniciNick

mesela yukarda KullaniciKim değeri sayısal değerken KullaniciNick değeri metinsel tür uyuşmazlığı oluyor
bu atamadaki amacınız ne?
2 - yine yukardaki kod Login formu kapandıktan sonra çalıştırılıyor oysa form kapandığı için KullaniciNick değerini atayamadığı için yine hata veriyor