selectcommand that does not return any base table information

See more:

VB

sir ,
I have the problem to update the database, when i make changes and then in get the exception selectcommand that does not return any base table information
My code is

Imports System.Data.SqlClient

Public Class Form1

    Dim connetionString As String

    Dim connection As SqlConnection

    Dim adapter As SqlDataAdapter

    Dim cmdBuilder As SqlCommandBuilder

    Dim ds As New DataSet

    Dim changes As DataSet

    Dim sql As String

    Dim i As Int32



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        connetionString = "Data Source=ServerName;Initial Catalog=DatabaseName;User ID=UserName;Password=Password"

        connection = New SqlConnection(connetionString)

        Sql = "select * from Product"

        Try

            connection.Open()

            adapter = New SqlDataAdapter(Sql, connection)

            adapter.Fill(ds)

            connection.Close()

            DataGridView1.Data Source= ds.Tables(0)

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Try

            cmdBuilder = New SqlCommandBuilder(adapter)

            changes = ds.GetChanges()

            If changes IsNot Nothing Then

                adapter.Update(changes)

            End If

            MsgBox("Changes Done")

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

End Class

Please help me


[edit]Code block added - OriginalGriff[/edit]