Try this...

Code:
opdragKopersWatBotteleer.CommandText = " Update Verkope " &
                                               "set Gebottel = ( '" & BottelComboBox.Text & "'  " &
                                               "Where verkope.DebiteurNaam = '" & KoperComboBox.Text & "' )"
verkope.DebiteurNaam???

Wouldn't that be just...

DebiteurNaam

???