If ComboBox1.SelectedIndex = -1 AndAlso BindingSource1.Position <> -1 Then Dim row = DirectCast(BindingSource1.Current, DataRowView).Row row("DataColumn2") = ComboBox1.Text BindingSource1.EndEdit() End If