Error insert data into extra column of datagrid in VB 6

See more:

VB6

I have a datagrid with 4 columns(A B C D) and they are added data, and then I add a new column (F)into this datagrid(A B F C D) and column F is set type is button( Datagrid1.columns(2).button=true) to when click on button of column F a listbox appeared to choose data and update this data for column F.

The problem in here is when I choose data from listbox to update, application it shows an error " run-time error 6147: column not found, |1 "

I think column index of datagrid1 is changed because when I use " Datagrid1.columns(3).button=true", the type of columns C doesn't change to button that the type of column D become button.

I don't know why.
Would you help me to resolve this problem to update data for column F?