Visual Basic.NET - NO SE INSERTAN DATOS A MI BDD

Tengo el siguiente problema al tratar de insertar datos a mi base de datos, no se si esta bien hecha la sentencia INSERT INTO, la tabla en la que se insertan los datos recibe claves primarias de otras tablas, la sentencia es la siguiente:

Try

Dim ocmd As New SqlCommand

Dim sqlcadena As New String("INSERT INTO T_Producto (codigo, nombre, " + _
"unidadmedida, talla, color, tipocliente, cantidad, precio, precio1, alerta, " + _
"fecha, grupoproducto, descripcion, activa, responsable)" + _
" SELECT @codigo, @nombre, T_UnidadMedida.codigo, @talla, T_Color.codigo, " + _
"T_TipoCliente.codigo, @cantidad, @precio, @precio1, @alerta, @fecha, " + _
"T_GrupoProducto.codigo, @descripcion, @activa, @responsable" + _
" FROM T_UnidadMedida, T_Color, T_TipoCliente, T_GrupoProducto" + _
" WHERE T_UnidadMedida.nombreunidad like @unidadmedida" + _
" AND T_Color.nombrecolor like @color" + _
" AND T_TipoCliente.nombretipo like @tipocliente" + _
" AND T_GrupoProducto.nombregrupo like @grupoproducto")

ocmd.Parameters.Add(New SqlParameter("@codigo", SqlDbType.Text, 10)).Value = TextBox1.Text.ToString
ocmd.Parameters.Add(New SqlParameter("@nombre", SqlDbType.Text, 100)).Value = TextBox2.Text.ToString
ocmd.Parameters.Add(New SqlParameter("@unidadmedida", SqlDbType.Text, 2)).Value = ComboBox3.Text.ToString
ocmd.Parameters.Add(New SqlParameter("@talla", SqlDbType.Text, 2)).Value = TextBox3.Text.ToString
ocmd.Parameters.Add(New SqlParameter("@color", SqlDbType.Text, 2)).Value = ComboBox4.Text.ToString
ocmd.Parameters.Add(New SqlParameter("@tipocliente", SqlDbType.Text, 2)).Value = ComboBox2.Text.ToString
'esto toca cambiar
ocmd.Parameters.Add(New SqlParameter("@cantidad", SqlDbType.Text, 10)).Value = "0".ToString
'
ocmd.Parameters.Add(New SqlParameter("@precio", SqlDbType.Text, 10)).Value = TextBox4.Text.ToString
ocmd.Parameters.Add(New SqlParameter("@precio1", SqlDbType.Text, 10)).Value = TextBox5.Text.ToString
ocmd.Parameters.Add(New SqlParameter("@alerta", SqlDbType.Text, 10)).Value = TextBox7.Text.ToString
ocmd.Parameters.Add(New SqlParameter("@fecha", SqlDbType.Text, 50)).Value = DateTimePicker1.Text.ToString
ocmd.Parameters.Add(New SqlParameter("@grupoproducto", SqlDbType.Text, 2)).Value = ComboBox1.Text.ToString
ocmd.Parameters.Add(New SqlParameter("@descripcion", SqlDbType.Text, 100)).Value = TextBox6.Text.ToString
'esto toca cambiar
ocmd.Parameters.Add(New SqlParameter("@activa", SqlDbType.Text, 2)).Value = "en construccion".ToString
ocmd.Parameters.Add(New SqlParameter("@responsable", SqlDbType.Text, 50)).Value = "Danny".ToString
'
SqlConnection1.Open()
ocmd.CommandText = sqlcadena
ocmd.Connection = SqlConnection1
'el método ExecuteNonQuery() del objeto Command ejecuta una instrucción
'de Transact-SQL en la conexión y devuelve el número de filas afectadas.
ocmd.ExecuteNonQuery()
SqlConnection1.Close()

Catch ex As Exception
SqlConnection1.Close()
MsgBox(ex.Message, , "Datos No Ingresados")
End Try

Aparentemente no me da problema alguno, el programa se ejecuta correctamente, solo que no se ingresan los datos a mi bdd.