下記のように書くこともできます。

Dim bc = Me.BindingContext(Me.ComboBox1.DataSource)

If ComboBox1.SelectedIndex = -1 AndAlso bc.Position <> -1 Then

    Dim row = DirectCast(bc.Current, DataRowView).Row

    row("DataColumn2") = ComboBox1.Text

    bc.EndCurrentEdit()

End If

この方法だと、BindingSource を使っていないケース（DataTable を直接バインドしている場合など）にも対応できます。