Nada! porca zia ti invio tutto il codice:

Dim conn As New SqlConnection("Stringa di connessione")
Dim ds As New DataSet("MyDataSet")
Dim da As New SqlDataAdapter
Dim cmd As New SqlCommand

Private Sub Form1_Load .......
Dim sql As String = "SELECT * FROM generi"
cmd.CommandText = sql
cmd.Connection = conn
da.SelectCommand = cmd
da.Fill(ds, "generi")
End Sub

Private Sub Button2_Click......
cmd.CommandText = "INSERT INTO Generi(genere) VALUES('Boxe')"
cmd.Connection = conn
da.InsertCommand = cmd
da.Update(ds, "generi")
DataGrid2.DataSource = ds
End Sub

Non ci capisco più nulla! Ciao e Grazie aspetto tue notizie se riesci a risolvere il problema.