Per esempio, perchè questo codice non funziona?

Public Class PROVA2

Private Sub TABELLABindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TABELLABindingNavigatorSaveItem.Click
Me.Validate()
Me.TABELLABindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Database1DataS et)

End Sub

Private Sub PROVA2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: questa riga di codice carica i dati nella tabella 'Database1DataSet.TABELLA'. È possibile spostarla o rimuoverla se necessario.
Me.TABELLATableAdapter.Fill(Me.Database1DataSet.TA BELLA)
Dim RISULTATO = From CAMPO1 In TABELLABindingSource Order By CAMPO1 Select CAMPO1
Me.TABELLABindingSource = RISULTATO

End Sub


Grazie ancora e portate pazienza.