Codigo Visual Basic Para Transparencia

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
' Aqui se declara la cadena de cnexion con la base de datos de Access
' se debe incluir la ruta y nombre completo delarchivo
Dim strConexion As String = "provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Ejemplo\categorias.accdb"
Dim strComando As String = "select * from categorias"
Dim DA AsOleDbDataAdapter
Dim DS As New DataSet()
Dim CB As OleDbCommandBuilder
Dim Posicion As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
Try
DA = New OleDbDataAdapter(strComando, strConexion)
DA.Fill(DS, "categorias")
CB = New OleDbCommandBuilder(DA)txtldCategoria.DataBindings.Add(New Binding("Text", DS, "categorias.id"))
txtCategoria.DataBindings.Add(New Binding("text", DS, "categorias.Nom_categorias"))txtDescripcion.DataBindings.Add(New Binding("text", DS, "categorias.Descripcion"))

txtexistencia.DataBindings.Add(New Binding("text", DS, "categorias.existencia"))
txtmaximo.DataBindings.Add(NewBinding("text", DS, "categorias.maximo"))
txtminimo.DataBindings.Add(New Binding("text", DS, "categorias.minimo"))
txtprecio.DataBindings.Add(New Binding("text", DS,"categorias.precio"))
txtcosto.DataBindings.Add(New Binding("text", DS, "categorias.costo"))

Catch ex As Exception
MsgBox(ex.Message)
End Try

End Sub#Region "botones"

Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
If btnNuevo.Text = "Nuevo" ThenMe.BindingContext(DS, "categorias").AddNew()
btnNuevo.Text = "guardar"
btnEditar.Text = "cancelar"
btnEliminar.Enabled = False
btnSalir.Enabled = False...