Problema con DateTime en TableAdapter

[Mitico]

He consegido hacerlo llamando directamente a los métodos Insert y Update del TableAdapter, pasando en los parámetros el valor adecuado.

Os lo pongo por si a alguien le sirve. No obstante agradecería alguna ayuda si alguien sabe cómo hacerlo de la otra manera.

Gracias.

Código:

    Protected Sub bGuardar_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles bGuardar.Click
        Dim fEntrada As Date
        fEntrada = New Date(Me.cboAnio.SelectedValue(), Me.cboMes.SelectedValue(), Me.cboDia.SelectedValue())
        If intIdRI = 0 Then
            Me.taRInd.Insert(Me.txtNR.Text.Trim(), _
                    IIf(Me.txtAlbaran.Text.Trim() <> "", Me.txtAlbaran.Text.Trim(), Nothing), _)
                    IIf(Me.cboEstado.SelectedValue = 2, fEntrada.Date(), Nothing), _
                    Me.cboEstado.SelectedValue())
        Else
            Me.taRInd.Update(Me.txtNR.Text.Trim(), _
                    IIf(Me.txtAlbaran.Text.Trim() <> "", Me.txtAlbaran.Text.Trim(), Nothing), _
                    IIf(Me.cboEstado.SelectedValue = 2, fEntrada.Date(), Nothing), _
                    Me.cboEstado.SelectedValue())
        End If

        CargaDatos()
    End Sub