Conexion Visual SQL

CÓDIGO PARA CONEXIÓN DE MYSQL Y VB

Imports MySql.Data
Imports MySql.Data.MySqlClient

Public Class Form1
Dim oDataAdapter As MySqlDataAdapter
Dim oDataSet As DataSet
DimiposicFilaActual As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'crear la conexion
Dim oConexion As MySqlConnectionoConexion = New MySqlConnection
oConexion.ConnectionString = "Server=localhost; Database=proyecto; Uid=root; Pwd=62673716;"
MsgBox("Conexion correcta accesando")'crear adaptador (clase adaptadora entre un objeto Dataset y sus operaciones slect,insert,update y delete
Me.oDataAdapter = New MySqlDataAdapter("Select * from clientes", oConexion)'crear un commando (este modifica y borra desde una consulta de seleccion de datos en SQL
Dim oCommBuild As MySqlCommandBuilder = New MySqlCommandBuilder(oDataAdapter)'Crear DataSet (Almacen de datos por excelencia en ADO.NET BD desconectada del proveedor
Me.oDataSet = New DataSet

'apertura
oConexion.Open()

'Llenar el adaptadorcon el dataset fill para llenar DataSet
Me.oDataAdapter.Fill(oDataSet, "clientes")
oConexion.Close()

'establecer la posicion de registro para mostrar en la tablaMe.iposicFilaActual = 0

'cargar campos en los controles del formulario
Me.CargarDatos()
Timer1.Start() 'Poner reloj
End Sub

Private Sub CargarDatos()Dim oDataRow As DataRow
oDataRow = Me.oDataSet.Tables("clientes").Rows(Me.iposicFilaActual)

'controles del formulario
Me.TextBox1.Text = oDataRow("codigo")Me.TextBox2.Text = oDataRow("Nombres")
Me.TextBox3.Text = oDataRow("apellidos")

'mostrar la posicion actual del registro
Me.lblregistro.Text = " registro " & _...