ayuda con programa control de inventario

[madriz_rd]

bueno ya resulto el problema anterior me surge este otro tengo el sig. codigo en el form1(mantenimiento.vb)

Código:

Private Sub codigo_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles codigo.KeyDown
        If e.KeyData = Keys.Down Then
            If codigo.Text = "" Then
                cadconsul = "select codigo,descripcion,p_v,existencia from productos"
            Else
                cadconsul = "select codigo,descripcion,p_v,existencia from productos where descripcion like '%" & Me.codigo.Text & "%' or (codigo like '%" & Me.codigo.Text & "%')"
            End If
            form_busqueda.Show()
            codigo.Text = id
            'llama la funcion cargar datos
            cargadatos()
        Else
            If e.KeyData = Keys.Return Then
                'llama la funcion cargar datos
                cargadatos()
            Else
                descripcion.SelectionStart = 0
                descripcion.SelectionLength = descripcion.Text.Length
                descripcion.Focus()
            End If
        End If
    End Sub

y esta funcion

Código HTML:

Private Sub cargadatos()
        ada = New MySqlDataAdapter("select * from productos where codigo = '" & codigo.Text & "'", con)
        datase = New DataSet
        ada.Fill(datase, "productos")
        If datase.Tables("productos").Rows.Count > 0 Then
            'CARGAR DATOS DE LA CON SULTA EN LAS CAJAS DE TEXTO
            codigo.Text = datase.Tables("productos").Rows(0).Item(0)
            descripcion.Text = datase.Tables("productos").Rows(0).Item(1)
            linea.Text = datase.Tables("productos").Rows(0).Item(2)
            marca.Text = datase.Tables("productos").Rows(0).Item(3)
            provedor.Text = datase.Tables("productos").Rows(0).Item(4)
            unidad.Text = datase.Tables("productos").Rows(0).Item(6)
            p_c.Text = datase.Tables("productos").Rows(0).Item(7)
            p_v.Text = datase.Tables("productos").Rows(0).Item(8)
            min.Text = datase.Tables("productos").Rows(0).Item(9)
            max.Text = datase.Tables("productos").Rows(0).Item(10)
            If datase.Tables("productos").Rows(0).Item(5) = "iva" Then
                r_iva.Checked = True
            Else
                r_exento.Checked = True
            End If
            If datase.Tables("productos").Rows(0).Item(11) = "SI" Then
                c_compra.Checked = True
            Else
                c_compra.Checked = False
            End If
            If datase.Tables("productos").Rows(0).Item(12) = "SI" Then
                c_venta.Checked = True
            Else
                c_venta.Checked = False
            End If
            If datase.Tables("productos").Rows(0).Item(13) = "SI" Then
                c_inventario.Checked = True
            Else
                c_inventario.Checked = False
            End If
            If datase.Tables("productos").Rows(0).Item(14) = "SI" Then
                c_compuesto.Checked = True
            Else
                c_compuesto.Checked = False
            End If
        End If
    End Sub

en el form2 (form_busqueda) tengo esto

Código:

Private Sub form_busqueda_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        con = New MySqlConnection()
        con.ConnectionString = "server=localhost;user id =root;password=123456;database=cvi_campesino"
        con.Open()
        data.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
        'creamos el adaptador 
        ada = New MySqlDataAdapter(cadconsul, con)
        'creamos el dataset
        datase = New DataSet
        ada.Fill(datase, "productos")
        'asignar el dataset al datagrid
        data.DataSource = datase
        data.DataMember = "productos"
    End Sub

    Private Sub data_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles data.KeyDown
        Dim idxrow As Integer = data.CurrentRow.Index
        If e.KeyData = Keys.Return Then
            idxrow = idxrow - 1
            id = data.Rows(idxrow).Cells(0).Value
            Me.Hide()
        Else
            If e.KeyData = Keys.Escape Then
                Me.Hide()
            End If
        End If
    End Sub

bueno el problema es que cuando desde el form1 (mantenimiento.db) se llama al form2 (form_busqueda) en el form2 solo se ejecuta la primer parte la del Private Sub form_busqueda_Load y asta la segunda pasada se ejecutan las dos partes. que estoy asiendo mal.
agradesere las ayudas gracias