add new

por que puede ser que cuando doy para agregar un registro

Case "Agregar"

Try
'Cerrar cualquier edición en ejecución
Me.BindingContext(dsCobros, "Cobro").EndCurrentEdit()
Me.BindingContext(dsCobros, "Cobro").AddNew()
' Catch exc As Exception
Catch exc As Exception
MsgBox(exc.Message, MsgBoxStyle.Critical, Me.Text)
End Try
Habilita()

los campos de combo que cargo desde otras tablas no se quedan en blanco,
mantienen el valor del datos que trajo cada uno