sn: orkuncan5
Liste kutusuna veri alamayışınızın nedeni Form_Open olayına yazmış olduğunuz koddan kaynaklanmaktadır. (neden hata verdiğini tam olarak kontrol etmedim). Kod yapısını bir daha gözden geçirmenizi tavsiye ederim bir çok yerde sorunlar çıkartacak gibi.

Güncelle bölümünün güncelleme yapmamasının nedeni

End With 'kodundan önce

.update 've

.close

kodunuzun olmamasıdır. alan adları yazıldıktan sonta yani işleme alındıktan sonra update demeniz gerekiyor.

Örneğin:

.update
.Fields("Alan Adı") = me.Alan Adı
.update
.close ' ise bağlantıyı sonlandırır.