Visual Basic - visual studio 2008 + mysql

Imports System.Data.Odbc

Public Class Form1

    'declaro 3 variables que estan dentro de la clase que voy a usar.

    'una de coenxion

    'una de comando

    'una de lectura

    Public conexionBD As OdbcConnection

    Public comandoSQL As OdbcCommand

    Public resultadoSQL As OdbcDataReader

    'variables para user

    Public nombre As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    'comienza la funcion

    Public Function agregaruser()

        'Creo la cadena de conexion con la base de datos en este caso una base de informix 

        conexionBD = New OdbcConnection("Server=localhost;Database=visual;Uid=root;Pwd=root;")

        'Abro la conexion

        conexionBD.Open()

        'Creo el comando con la sentencia SQL que inserta datos en la tabla llamada "solucion" 

        comandoSQL = New OdbcCommand("INSERT INTO usuario values(nombre)", conexionBD)

        'Ejecuto el comando

        resultadoSQL = comandoSQL.ExecuteReader

        'Muestro el resultado

        MsgBox(resultadoSQL.RecordsAffected)

        'Cierro la conexion

        conexionBD.Close()

        Return 0

    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        nombre = TextBox1.Text

        'activo = CInt(TextBox2.Text) 'convertirlo en interger al texto

        agregaruser()

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

End Class