Visual Basic.NET - Ayuda con Insert y MySql

Hola a todos soy nuevo envb.net
tengo un codigo, para insertar un dato utilizando parametros y el registro me lo añade, pero vacio Null en todos los canpos.
Les adjunto el codfigo, para saber que estoy haciendo mal.

Dim con As New MySqlConnection
Dim comando As New MySqlCommand
Dim adaptador As New MySqlDataAdapter
Dim datos As Data.DataSet

con.ConnectionString = "server=localhost; user id=USU;password=USU00 ;database=sistema"
comando.Connection = con
comando.CommandType = CommandType.Text
comando.CommandText = "INSERT INTO codigo (codigo, detalle) VALUES (@Wcod, @Wdet)"
adaptador.SelectCommand = comando

comando.Parameters.Add("@Wcod", Data.SqlDbType.NChar, 6, "codigo")
comando.Parameters("@Wcod").Value = textbox1.Text
comando.Parameters.Add("@Wdet", Data.SqlDbType.NChar, 25)
comando.Parameters("@Wdet").Value = TextBox2.Text

con.Open()
comando.ExecuteNonQuery()
con.Close()

MsgBox("Datos Grabados", MsgBoxStyle.Information, "GRABADO")

Muchas Gracias por su tiempo
un saludo a todos

'cambia esto
adaptador.SelectCommand = comando

'por esto
adaptador.InsertCommand = comando

Harold V. Muchas Gracias por tu respuesta, pero sigue añadiendo un registro vacio.
He probado hacer algo similar en c# y me pasa lo mismo. puede ser un error de la base de Mysql.
tambien tengo poca experiencia en Mysql. Ya que ven de Visual Fox.

Nuevamenter Gracias por responder

Esto te debe funcionar..............

cmdColaboradores.Parameters.Add("@Email", SqlDbType.VarChar, (50), "Email").Value = Me.txtEmail.Text

Con.Open()

cmdColaboradores.ExecuteNonQuery()
adpcolaboradores.InsertCommand = cmdColaboradores

cmdColaboradores.Parameters.Clear()
Con.Close()

Esto te debe funcionar..............


comando.Parameters.Add("@Wcod", Data.SqlDbType.NChar, 6, "codigo") .Value= textbox1.Text

comando.Parameters.Add("@Wdet", Data.SqlDbType.NChar, 25) .Value = TextBox2.Text

con.Open()

comando.ExecuteNonQuery()
adaptador.InsertCommand = comando

con.Close()

Muchas Gracias Harold V.
Pero me sigue añadiendo un registro vacio.

Muchas Gracias.
ya lo resolvi.
Aca esta el codigo que utilize

'Conectar la base

Dim Wcod, Wdet, Wimp As String
Wcod = textbox1.Text
Wdet = TextBox2.Text
Wimp = TextBox3.Text

comando.Connection = con
comando.CommandType = CommandType.Text
comando.CommandText = "INSERT INTO codigo (codigo, detalle, importe) values ('" & Wcod & "','" & Wdet & "','" & Wimp & "')"

con.Open()
comando.ExecuteNonQuery()
adaptador.InsertCommand = comando
comando.Parameters.Clear()
con.Close()

MsgBox("Datos Grabados", MsgBoxStyle.Information, "GRABADO")

Nuevamente Muchas gracias

Lo resolviste si, pero no como se debia, ese codigo q tienes ahora esta propenso a SQL INJECTION...............

Ok Harold V. Tenes razon, pero no veo la forma de realizarlo.
probe con los ejemplos que escribiste pero sigue añadiendo el registro vacio.
Realmente no se como encararlo.
Lo que trato de hacer es un abm con una base de Mysql.
Si tenes algun ejemplo o idea te lo agradeceria

Nuevamente Muchas Gracias

Prueba con:

Dim con As New MySqlConnection
Dim comando As New MySqlCommand

con.ConnectionString = "server=localhost; user id=USU;password=USU00 ;database=sistema"

comando.Connection = con
comando.CommandType = CommandType.Text
comando.CommandText = "INSERT INTO codigo (codigo, detalle) VALUES (@Wcod, @Wdet)"

comando.Parameters.Add(New MySqlParameter("@Wcod", Data.SqlDbType.NChar, 6)) .value = textbox1.text
comando.Parameters.Add(New MySqlParameter("@Wdet", Data.SqlDbType.NChar, 25)).Value = TextBox2.Text

con.Open()
comando.ExecuteNonQuery()
con.Close()

Gracias thessen. Pero con ese codigo me ingresa un registro con todos los valores Null.
No se si tengo algun problema en la base o no se donde.
si reemplazo los parametros (@Wcod) por sus valores, ahi si me agrega el registro y su contenido. pero usando parametros no.

muchas gracias.