Visual Basic.NET - Guardar en varias tablas mysql

Imports MySql.Data.MySqlClient

Public Class UsuarioControl

    Friend conn = New Persistencia

    Public Sub guardarUsuario(ByVal usuario As UsuarioDTO, persona As PersonaDTO)

        'Se valida lo relacionado al negocio y posterio a ello se llama los metodos de guardado

        Dim dtoUsuario = New UsuarioDTO

        Dim dtoPersona = New PersonaDTO

        Dim insertPersona As String

        Dim insertUsuario As String

        insertPersona = "INSERT INTO T_Persona (nombrePersona, paternoPersona, maternoPersona, emailPersona) VALUES ('" & persona.nombrePersona & "', '" & persona.paternoPersona & "', '" & persona.maternoPersona & "', '" & persona.emailPersona & "')"

        conn.guardarRegistro(insertPersona)

        'usuario.idPersona = a lo que regresa la linea anterior

        conn.guardarRegistro(insertPersona)

        insertUsuario = "INSERT INTO T_Usuario (usuario, contrasena, idPersona) VALUES ('" & usuario.usuario & "', '" & usuario.contrasena & "', '" & usuario.idPersona & "')"

        conn.guardarRegistro(insertUsuario)

    End Sub

End Class

Imports MySql.Data.MySqlClient

Public Class Persistencia

    Public conexion As MySqlConnection

    'Método encargado de la conexión a la base de datos

    Public Sub abrirConexion()

        Dim servidor As String = "localhost"

        Dim usuario As String = "usuario"

        Dim contrasena As String = "contrasena"

        Dim puerto As String = "puerto"

        Dim baseDatos As String = "BaseDeDatos"

        Try

            conexion = New MySqlConnection

            conexion.ConnectionString = "server=" & servidor &

                "; user id=" & usuario & "; password=" & contrasena &

                "; port=" & puerto & "; database=" & baseDatos & ";"

            conexion.Open()

            MessageBox.Show("Conexion exitosa")

        Catch ex As Exception

            MessageBox.Show("Error en la conexión")

        End Try

    End Sub

    Public Sub cerrarConexion()

    Dim id As Integer

    If conexion.State = ConnectionState.Open Then

            conexion.Close()

            MessageBox.Show("Conexion terminada")

        End If

    End Sub

    Public Sub guardarRegistro(ByVal query As String)

        Try

            abrirConexion()

            Dim command As New MySqlCommand(query, conexion)

            command.ExecuteScalar()

            'id = lo que regresa la linea anterior

            cerrarConexion()

            Return id

        Catch ex As Exception

            MsgBox(ex.ToString)

        End Try

    End Sub

Public Function Guardar(ePersona as PersonaDTO) As Integer

        Dim Conn As New MySqlConnection(Aqui tu cadena de conexion)

        Dim DBComando As New MySqlCommand

        Dim ID as integer=0

        Try

            Conn.Open()

            With DBComando

                .CommandText = "INSERT INTO T_Persona(nombrePersona,paternoPersona,maternoPersona,emailPersona) VALUES (@nombrePersona,@paternoPersona,@maternoPersona,@emailPersona);SELECT LAST_INSERT_ID()"

                .CommandType = CommandType.Text

                .Parameters.Add("@nombrePersona", MySqlDbType.VarChar).Value = persona.NombrePersona

                .Parameters.Add("@paternoPersona",MySqlDbType.Varchar).Value=persona.paternoPersona

                .Parameters.Add("@maternoPersona",MySqlDbType.Varchar).Value=persona.maternoPersona

                .Parameters.Add("@emailPersona",MySqlDbType.Varchar).Value=persona.emailPersona

                .Connection = Conn

            End With

            ID =Convert.ToInt32(DBComando.ExecuteScalar().ToString())

            If ID= 0 Then

                Throw New Exception("Error al insertar persona")

            End If

            Return ID

        Catch ex As Exception

           Throw New Exception("ex.Message)

        Finally

            Conn.Close()

            Conn.Dispose()

        End Try

End Function