salvare il Dataset in uscita

Private Sub Letture_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing

If AcquaDataSet1.HasChanges Then

LettureTableAdapter.Update(AcquaDataSet1)

End If

End Sub