VB 2010 ช่วยแก้โค๊ด Edit : access 2007 ช่วยทีนะครับ

Private Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEdit.Click
        If txtID.Text = "" Then
            MessageBox.Show("กรุณาป้อนรหัสลูกค้าก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            txtID.Focus()
            Exit Sub
        End If
        If txtName.Text = "" Then
            MessageBox.Show("กรุณาป้อนชื่อลูกค้าก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            txtName.Focus()
            Exit Sub
        End If

        If MessageBox.Show("คุณต้องการแก้ไขชื่อลูกค้า ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Dim dbsalon As DbProviderFactory = DbProviderFactories.GetFactory(strProvider)
            Dim Conn As DbConnection = dbsalon.CreateConnection()
            With Conn
                If .State = ConnectionState.Open Then .Close()
                .ConnectionString = strConn
                .Open()
            End With
            Dim sqlProducts = "UPDATE goods SET (g_names = " & txtName.Text & ") WHERE (g_id = " & txtID.Text & ")"
            Dim Com As DbCommand = Conn.CreateCommand()
            If txtID.Text = "" Then
                MessageBox.Show("กรุณาป้อนรหัสก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                txtID.Focus()
                Exit Sub
            End If
            If txtName.Text = "" Then
                MessageBox.Show("กรุณาป้อนชื่อก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                txtName.Focus()
                Exit Sub
            End If
                Com.CommandText = sqlProducts
                Dim ds As New DataSet()
            Dim da As DbDataAdapter = dbsalon.CreateDataAdapter()
            da.SelectCommand = Com
            da.Fill(ds, "goods") 'มันบอกว่าผิดพลาดตรงนี้ครับ            
            dgv2.DataSource = ds.Tables("goods")


            ShowData()
            End If
        txtID.Focus()
    End Sub