VB 2005 - Pq no me guarda en la BD

[Laufwerk]

Hola amigos !!!
Tengo un botón que le asigno este codigo

Código:

        Dim nuevoValor As String
        nuevoValor = InputBox("Escribe el nuevo destino a añadir al combo", titleName)
        If nuevoValor <> "" Then
            Me.DestinosTableAdapter.Insert(nuevoValor.ToUpper)
            Dim newRow As dbDataSet.destinosRow
            newRow = Me.DbDataSet.destinos.NewdestinosRow
            newRow.descripcion = nuevoValor.ToUpper
            Me.DbDataSet.destinos.Rows.Add(newRow)
            Try
                Me.DestinosBindingSource.EndEdit()
                Me.DestinosTableAdapter.Update(Me.DbDataSet.destinos)
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Else
            MsgBox("No has introducido nada, por tanto, no se ha añadido nada.", MsgBoxStyle.Information, titleName)
        End If

Quisiera saber pq no me guarda dicho nuevo valor en mi tabla
La tabla contiene tan solo dos columnas,
ID = autonumerica
descripcion = string


Gracias!!