Store Procedure VB.NET y MYSQL

[mau_87lp]

Hola, como estan, hoy tengo el siguiente problema.
Quiero desde vb.net llamar o ejecutar un store que me devuelva un registro. Mi problema es que no lo consigo. El codigo que estoy usando es el siguiente:

Codigo Visual Basic .NET

Código:

Try
                Dim con As New MySqlConnection("server=localhost;User Id=alberto;Password=123456;database=comercio") 'Persist Security Info=True;
                Dim comm As New MySqlCommand("Consultar_Articulo", con)
                comm.CommandType = CommandType.StoredProcedure
                con.Open()
                Dim par As New MySqlParameter("@Cod_Barras", MySqlDbType.Int32)
                par.Size = 15
                par.Value = txtCodBarras.Text
                comm.Parameters.Add(par)

                Dim da As New MySqlDataAdapter
                da.SelectCommand = comm
                da.SelectCommand.Connection = con

                Dim ds As New DataSet
                da.Fill(ds, "usuario")

                dgvProductos.DataSource = ds.Tables("usuario")
                dgvProductos.Refresh()
                con.Close()


            Catch ex As MySqlException
                MessageBox.Show(ex.Message)
            End Try

Codigo MySql

Código:

CREATE PROCEDURE Consultar_Articulo(IN Cod_Barras INT)
SELECT Cod_Barra,Nom_Articulo,Precio
FROM Articulos 
WHERE Cod_Barra = Cod_Barras;

El store desde mysql si lo llamo o ejecuto funciona, pero desde visual no.
Estoy usando el conector de mysql para .net, mysql 5.1 y Visual Studio 2008. Espero que alguien me pueda dar una mano, desde ya muchas gracias.


Saludos