UPDATE dataSet

Dim da As OleDbDataAdapter
    Dim DatAdpter As New OleDb.OleDbDataAdapter
    Dim DatSet As New DataSet

ApriDatabaseSql()
        Try
            Dim CommBuild As New OleDbCommandBuilder(DatAdpter)
            Dim DsChange As DataSet = DatSet.GetChanges()

If Not DsChange Is Nothing Then
                ' salva il record
                DatAdpter.Update(DsChange, "Authors")

DatSet.AcceptChanges()

End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)

End Try
         Dbazienda.Close()

Public Function ApriDatabaseSql() As Boolean

Dbazienda = New OleDb.OleDbConnection   '("server=(local);Database=pubs;Integrated Security=True")
        Dbazienda.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=60016P05260"

Try
            Dbazienda.Open()
            ApriDatabaseSql = True
        Catch
            MsgBox("Connessione non effettuata" & vbCrLf & Err.Description, MsgBoxStyle.Critical, "Connessione Fallita")
            ApriDatabaseSql = False
        End Try

End Function

Dim da As OleDbDataAdapter
Dim DatAdpter As New OleDb.OleDbDataAdapter
Dim DatSet As New DataSet

ApriDatabaseSql()
Try
Dim CommBuild As New OleDbCommandBuilder(DatAdpter)
Dim DsChange As DataSet = DatSet.GetChanges()

If Not DsChange Is Nothing Then
' salva il record

DatAdpter.Update(DsChange, "Authors")

DatSet.AcceptChanges()

End If
Catch ex As Exception
MessageBox.Show(ex.Message)

End Try
Dbazienda.Close()

Public Function ApriDatabaseSql() As Boolean

Dbazienda = New OleDb.OleDbConnection '("server=(local);Database=pubs;Integrated Security=True")
Dbazienda.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=pubs;Data Source=60016P05260"

Try
Dbazienda.Open()
ApriDatabaseSql = True
Catch
MsgBox("Connessione non effettuata" & vbCrLf & Err.Description, MsgBoxStyle.Critical, "Connessione Fallita")
ApriDatabaseSql = False
End Try

End Function