ERRO ATUALIZACAO DO BANCO DE DADOS

Imports System.IO
Imports System.Data.OleDb
Imports System.Data

Public Class Form1
    Dim con As New OleDb.OleDbConnection
    Dim ds As New DataSet
    Dim da As OleDb.OleDbDataAdapter
    Dim sql As String
    Dim inc As String
    Dim dbProvider As String
    Dim dbSource As String
    Dim MaxRows As Integer

    Dim iDSelect As Integer = 0

 Private Sub buscareferencia_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles buscareferencia.KeyPress
        If buscareferencia.Text <> [Ô][Ô] Then
            Select Case Asc(e.KeyChar)
                Case 13
                    
                    Dim cnString As String
                    [ô][Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\banco.mdb[Ô]

                    cnString = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=|DataDirectory|\banco.mdb[Ô]

                    Dim sqlQRY As String = [Ô]SELECT * FROM produtos WHERE codigo= [ô][Ô] & buscareferencia.Text & [Ô][ô][Ô]

                    Dim conn As OleDbConnection = New OleDbConnection(cnString)

                    conn.Open()

                    Dim da As OleDbDataAdapter = New OleDbDataAdapter(sqlQRY, conn)

                    Dim ds As DataSet = New DataSet

                    da.Fill(ds, [Ô]banco[Ô])

                    Dim dt As DataTable = ds.Tables([Ô]banco[Ô])

                    Dim Row As DataRow

                    For Each Row In dt.Rows

                        referencia.Text = Row([Ô]codigo[Ô]).ToString
                        combomarca.Text = Row([Ô]marca[Ô]).ToString
                        comboproduto.Text = Row([Ô]produto[Ô]).ToString
                        combogenero.Text = Row([Ô]genero[Ô]).ToString
                        combotipo.Text = Row([Ô]tipo[Ô]).ToString
                        cor.Text = Row([Ô]cor[Ô]).ToString
                        combotamanho.Text = Row([Ô]tamanho[Ô]).ToString
                        combomodelo.Text = Row([Ô]modelo[Ô]).ToString
                        quantidade.Text = Row([Ô]quantidade[Ô]).ToString
                        custo.Text = Row([Ô]custo[Ô]).ToString
                        venda.Text = Row([Ô]venda[Ô]).ToString
                        fotoproduto.Text = Row([Ô]foto[Ô]).ToString
                    Next Row

                    conn.Close()
                   

            End Select

        End If
 

  dbProvider = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;[Ô]
        dbSource = [Ô]Data Source =|DataDirectory|\banco.mdb[Ô]

        con.ConnectionString = dbProvider & dbSource
     
        con.Open()

        Dim da As OleDbDataAdapter = New OleDbDataAdapter(sql, con)

        Dim cb As OleDbCommandBuilder = New OleDbCommandBuilder(da)

        Dim ds As DataSet = New DataSet

         da.Fill(ds, [Ô]banco[Ô])
        
        Dim dt As DataTable = ds.Tables([Ô]banco[Ô])


        With dt
            [ô] .Rows(0)([Ô]ID[Ô]) = txtid.Text
            .Rows(0)([Ô]codigo[Ô]) = referencia.Text
            .Rows(0)([Ô]marca[Ô]) = marca.Text
            .Rows(0)([Ô]produto[Ô]) = produto.Text
            .Rows(0)([Ô]genero[Ô]) = genero.Text
            .Rows(0)([Ô]tipo[Ô]) = tipo.Text
            .Rows(0)([Ô]cor[Ô]) = cor.Text
            .Rows(0)([Ô]tamanho[Ô]) = tamanho.Text
            .Rows(0)([Ô]modelo[Ô]) = modelo.Text
            .Rows(0)([Ô]quantidade[Ô]) = quantidade.Text
            .Rows(0)([Ô]custo[Ô]) = custo.Text
            .Rows(0)([Ô]venda[Ô]) = venda.Text
            .Rows(0)([Ô]foto[Ô]) = fotoproduto.Text

        End With

        da.Update(ds, [Ô]banco[Ô])


        con.Close()