Binding and relation AddNew problem URGENT

[barbarojo]

Hi everyone. I am losing my mind here. I really need a quick answer for this.
I have a dataset with a relation of 2 tables.
table1: tblCampaña
table2: tblAccion_Campaña
relation: tblCampaña.tblCampañatblAccion_Campaña

The forms shows both of them (tblCampaña and tblCampaña.tblCampañatblAccion_Campaña) and I can navigate through them with just fine. The problem is that when I want to add a new record for any of the tables (primary or secondary) it increments the binding count and everything but does not blank the components (textboxes, etc).

Here's what I am doing:

Private Sub CargaCampañaPrincipal()
Try
DA_Campañas.UpdateCommand = UPDATEtblCampaña

DA_Acciones_Campaña.UpdateCommand = UPDATEtblAccion_Campaña
DA_Acciones_Campaña.InsertCommand = INSERTtblAccion_Campaña

DA_Campañas.MissingSchemaAction = MissingSchemaAction.AddWithKey
DA_Acciones_Campaña.MissingSchemaAction = MissingSchemaAction.AddWithKey

DA_Campañas.Fill(DS_Campañas, "tblCampaña")
DA_Acciones_Campaña.Fill(DS_Campañas, "tblAccion_Campaña")

TextBoxCampaña.DataBindings.Add(New Binding("Text", DS_Campañas, "tblCampaña.nombre"))
DateTimePickerInicio.DataBindings.Add(New Binding("Value", DS_Campañas, "tblCampaña.fecha_inicio"))
DateTimePickerCierre.DataBindings.Add(New Binding("Value", DS_Campañas, "tblCampaña.fecha_cierre"))
TextBoxDescripcion.DataBindings.Add(New Binding("Text", DS_Campañas, "tblCampaña.descripcion"))

TextBoxNombreAccion.DataBindings.Add(New Binding("Text", DS_Campañas, "tblCampaña.tblCampañatblAccion_Campaña.nombre"))
DateTimePickerInicioAccion.DataBindings.Add(New Binding("Value", DS_Campañas, "tblCampaña.tblCampañatblAccion_Campaña.fecha_inicio"))
DateTimePickerCierreAccion.DataBindings.Add(New Binding("Value", DS_Campañas, "tblCampaña.tblCampañatblAccion_Campaña.fecha_cierre"))
TextBoxTema.DataBindings.Add(New Binding("Text", DS_Campañas, "tblCampaña.tblCampañatblAccion_Campaña.tema"))
TextBoxPieza.DataBindings.Add(New Binding("Text", DS_Campañas, "tblCampaña.tblCampañatblAccion_Campaña.pieza"))
TextBoxImagen.DataBindings.Add(New Binding("Text", DS_Campañas, "tblCampaña.tblCampañatblAccion_Campaña.pic"))
TextBoxMedio.DataBindings.Add(New Binding("Text", DS_Campañas, "tblCampaña.tblCampañatblAccion_Campaña.medio"))

Catch ex As Exception

MsgBox("System error." & vbCr & "'" & ex.Message.ToString, vbExclamation, "Atención")

Me.Close()

End Try

End Sub

Private Sub AddNewCampaña()
Me.BindingContext(DS_Campañas, "tblCampaña").AddNew()
End Sub

Private Sub AddNewAccion()
Me.BindingContext(DS_Campañas, "tblCampaña.tblCampañatblAccion_Campaña").AddNew()
End Sub