aşağıdaki adımları takip edip dener misiniz?
1 - frmPersonelKayit formundaki Public KayitID As Long değerini silip mdl_SQL modulüne ekleyin
2 - frmPersonelListesi formundaki [/b]lstPersonel_DblClick olayını aşağıdaki gibi düzenleyin

Private Sub lstPersonel_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

 If lstPersonel.ListIndex = -1 Then Exit Sub



    If lstPersonel.ListIndex = -1 Then Exit Sub



    Dim secilenID As Long

    secilenID = CLng(lstPersonel.List(lstPersonel.ListIndex, 0))

    

    KayitID = secilenID

    frmPersonelKayit.Show vbModal

End Sub

3 -  frmPersonelKayit formundaki UserForm_Initialize olayındaki

KayitID = CLng(frmPersonelListesi.lstPersonel.List(frmPersonelListesi.lstPersonel.ListIndex, 0))

satırı silip aşağıdaki bloğu aktif yapın

    If KayitID > 0 Then

        Call KayıtYukle(KayitID)

    End If

4 - frmPersonelKayit formundaki kapat düğmesinin kodunu da aşağıdaki gibi

Private Sub btn_Kapat_Click()

KayitID = 0

Unload Me

End Sub

düzenleyip dener misiniz