Ingresar registros a tablas diferentes relacionas. VB.Net MySQL

[edgarherrera]

Saludos a todos buenas tardes!

Continuo aqui con los problemas. Logre hacer la conexión a la base de datos de esta manera:

Código vb:

Imports MySql.Data.MySqlClient
Imports MySql.Data
 
Public Class frmOperaciones
 
    Private MysqlCommand As New MySqlCommand
    Dim MysqlConnString As String = "server=localhost; database=sucre; user id= root ; password="" "
    Public MysqlConexion As MySqlConnection = New MySqlConnection(MysqlConnString)
    Dim sAccion As String
    Friend sSqlOperaciones, sCodigo As String
 

Pero no se si refleja la solución a lo que me decía @@jhonwilliams con respecto a que estaba quemando la conexión a la BD.
Espero esta sea la manera correcta.

Ahora en el código anterior tenia otras funciones como por ejemplo Leer de la BD para saber si habían ya registros y de esta manera Habilitar textbox y otras cosas.

Algo asi:

Código vb:

Public Function LeerTabla(ByVal sSqlUsuario)
        Try
            Dim iNroRegistros As Integer = 0
            Dim daoperaciones As New MySqlDataAdapter
            Dim dtoperaciones As New DataTable
            Dim dsoperaciones As New DataSet
            ' Se crean los comandos para el SQL
            cmdOperaciones = New MySqlCommand()            ' IR AL PRINICIPIO *OJO*
            MysqlConexion.Open()
            cmdOperaciones.CommandText = sSqlUsuario
 
            ' ejecutamos la consulta con el dataadapter
            daoperaciones.SelectCommand = cmdOperaciones
 
            ' Llenamos el datatable con los datos obtenidos de la consulta
            daoperaciones.Fill(dtoperaciones)
 
            ' Numero de registros encontrados
            iNroRegistros = dtoperaciones.Rows.Count
 
            ' Ocultamos el boton buscar
            btnBuscar.Visible = False
 
            ' VAMOS POR ESTA LINEA !!!!!!!!!!!!!!!!
 
            If iNroRegistros = 0 Then
                If sAccion = "I" Then
                    ' Mostramos los botones grabar y cancelar
                    btnCancelar.Visible = True
                    btnGrabado.Visible = True
                    fHabilitar_textbox(True)
                    txtReferencia.Enabled = False
                    txtOperacion.Enabled = False
                    Return True
                Else
                    ' Mostramos el boton buscar
                    btnBuscar.Visible = True
                    MessageBox.Show("No se encontraron registros en la tabla")
                    fHabilitar_textbox(True)
                    Return False
                End If
            Else
                If sAccion = "I" Then
                    ' Ocultamos el boton grabar
                    btnGrabado.Visible = False
                    ' Mostramos el boton buscar
                    btnBuscar.Visible = True
                    MessageBox.Show("Codigo ya registrado en la tabla")
                    Return False
 

La pregunta sería como realizar estas operaciones de esta nueva forma q estoy implementando???