Visual Basic.NET - Problemas al insertar una tabla con clave foranea

Hola a todos:
Tengo problemas al grabar una tabla con calve foránea, de hecho no me ejecuta una línea y se la salta...
----
Mi código
------------
Public Function grabar(ByVal rub_cod As Double, ByVal codigo As Double, ByVal nombre As String, ByVal descrip As String) As String
Dim mensaje As String
Dim query_insert As New MySqlCommand()
Dim da_insert As New MySqlDataAdapter()
Dim ds_insert As New DataSet()
Try
Dim dt_srubro As New DataTable("Sub_Rubro")
dt_srubro.Columns.Add("rub_codigo", GetType(Double))
dt_srubro.Columns.Add("srub_codigo", GetType(Double))
dt_srubro.Columns.Add("srub_nombre", GetType(String))
dt_srubro.Columns.Add("srub_descrip", GetType(String))
ds_insert.Tables.Add(dt_srubro)
query_insert.CommandType = CommandType.Text
query_insert.CommandText = "Insert Into Sub_Rubro(rub_codigo,srub_codigo,srub_nombre,srub_descrip) values('" & rub_cod & "', '" & codigo & "', '" & nombre & "', '" & descrip & "')"
query_insert.Connection = Mysql_conn
da_insert.InsertCommand = query_insert
da_insert.SelectCommand = da_insert.InsertCommand
****** da_insert.Fill(ds_insert, "sub_rubro")
da_insert.Update(ds_insert, "sub_rubro")
Mysql_conn.Close()
mensaje = "datos grabados"
Catch
mensaje = Err.Description + Err.HelpFile
End Try
Return mensaje
End Function

la línea que está con (*) se la salta ded hecho nunca la ejecuta...Si saben de algo que pueda ser por favor ayúdenme..gracias...
Saludos a todos

¿El DataSet que usas es "Con Tipo" o "Sin Tipo"?. Tal vez, si es SIN TIPO, necesites crearle una Clave Foreanea dentro del DataSet, para que te funcione correctamente.

Creo que el problema esta en la asignacion del SelectCommand del Data Adapter. COmo su nombre lo indica este command debe estar basado en una instruccion SELECT

query_insert.Connection = Mysql_conn
da_insert.InsertCommand = query_insert
da_insert.SelectCommand = da_insert.InsertCommand <--

Sobre todo ademas porque haces un Fill, cambia esa instruccion a pro ejemplo SELECT * from Sub_Rubro"