Private Sub dettagli2(ByVal daset As DataSet)
objConn.Open()
Dim pippo As Double
pippo = 12333
Dim cmd As New OleDbCommand
'definisci anche gli OleDbCommand di Update e delete
'Alla fine esegui l'update dei tuoi dati:
'daset = DataGrid3.DataSource
tblClienti = daset.Tables("spese")
Dim cmdBuild As New OleDbCommandBuilder(da)
' Assegniamo i comandi generati al nostro DataAdapter
da.Update(daset, "spese")
' quanti sono gli elementi nel datagrid
' Dim c As Integer
' c = tblClienti.Rows.Count
'Button53.Text = c
objConn.Close()
MessageBox.Show("Database Aggiornato con successo!")
End Sub