Error when I want to edit an entry with userform

[dotchieJack]

Hello,
I get an error when i want to edit a entry
You make a choise in the listbox and you Click on the cb called"Kies hierboven een rij om aan te passen" the text and comboboxes are filled and the button "ingave aanpassen becomes enabled. Now I change something lets say combobox 1 an then push the button "ingave aanpassen" i get an error message and Ican not find out what i amdoinig wrong
File included,
Thanks in advance

 

[vletm]

... some ActiveX ... so I could open only 'Read-only'.
I didn't find when should 'currentrow' get value?
If never, it seems to be zero ... and
then 'Cells(currentrow, 1).Value = dotchie1' will give an error.

 

[dotchieJack]

Sorry, my native language is not English, i do not understand the question

 

[vletm]

From Private Sub CommandButton2_Click()
Find next line from Your code:
Cells(currentrow, 1).Value = dotchie1
What is currentrow's value?
Use 'Watch' to check its value.
If no value then currentrow is zero ( 0 ) and
there are no cell(0,1) !