Private Sub Add_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Add.Click
        Dim myConn As New OleDbConnection
        Dim da As OleDb.OleDbDataAdapter
        Dim ds As New DataSet
        Dim ds1 As New DataSet
        Dim Tabella1 As New DataTable
        Dim sql As String
        Dim maxRows As Integer
        Dim maxRows1 As Integer
        Dim myCMD As New OleDbCommand
  
        'Connessione
        myConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Emanuele Mignosa\Desktop\ALTRO\db1.mdb;"
        myConn.Open()
        MsgBox("La connessione è aperta")
        'Fine Connessione
        '------------------------------------------------
        'Query e Popolamento DataSet
        myCMD.Connection = myConn
        sql = "SELECT * FROM Tabella1"
        da = New OleDb.OleDbDataAdapter(sql, myConn)
        da.Fill(ds, "Tabella1")
        'Fine Query DataSet Popolato
        '------------------------------------------------
        '---------------
    
        '-----------------
        '
        maxRows = ds.Tables("Tabella1").Rows.Count
        TextBox5.Text = maxRows
        maxRows1 = maxRows + 1
        myCMD.CommandText = "INSERT INTO Tabella1(A,B,ID) VALUES ('" & txtShares.Text & "','" & txtShares1.Text & " ','" & maxRows1 & "')"
        myCMD.ExecuteNonQuery()
        MsgBox("Aggiunto nuovo record")
       
        '-----------------
        MsgBox("Aggiunto nuovo record")

        sql = "SELECT * FROM Tabella1 ORDER BY ID DESC"
        da = New OleDb.OleDbDataAdapter(sql, myConn)

        ds1.Clear()
        da.Fill(ds1, "Tabella1")

        

        dgvData.DataSource = ds1
        dgvData.DataMember = "Tabella1"

        Tabella1 = ds1.Tables("Tabella1")
        Dim cmdBuild As New OleDbCommandBuilder(da)


        'sampleDataDataGridView.DataSource = Tabella1

        da.Update(ds1, "Tabella1")
        ds1.AcceptChanges()


        myConn.Close()
        MsgBox("La connessione è chiusa")


        'Aggiungere un nuovo record


        'Fine 


    End Sub
End Class