How can I insert values in listview from 2 different databases (mysql and SQL)?

See more:

VB

SQL

MySQL

I have a problem where I need to get data from 2 different DataBases, one is a normal MySQL and another is a SQL server.
Both Databases share products but both use and store different data.
MySQL is used for basic quick data like cost, name, desc. and can be written and read.
And SQL is used for calculations of stock, pvp's , etc. only too read.

I need to cross this information into a single Listview for logistic purposes. And one problem is that some products in MYSQL dont have match values in the SQL one.

What I have tried:

I tried this code so far with some help, but the code is not returning values (I have data in the DB and i've tested the sql script). What can I be doing wrong?

<pre>Private Sub Prod_input_KeyDown(sender As Object, e As KeyEventArgs) Handles Prod_input.KeyDown
        If e.KeyCode = Keys.Enter Then
            Call button_search_Click(Nothing, Nothing)
        End If
    End Sub

    Private Sub button_search_Click(sender As Object, e As EventArgs) Handles button_search.Click

        Dim dt = GetMySqlData(proc_desc.Checked, proc_ref.Checked, Prod_input.Text)
        query_results.Items.Clear()
        For Each row As DataRow In dt.Rows
            Dim lv As New ListViewItem
            lv.Text = row(0).ToString
            lv.SubItems.Add(row(1).ToString)
            lv.SubItems.Add(row(2).ToString)
            lv.SubItems.Add(row(3).ToString)
            lv.SubItems.Add(row(4).ToString)
            Dim dt2 = GetSqlData(row(0).ToString)
            lv.SubItems.Add(dt2.Rows(0)(0).ToString)
            lv.SubItems.Add(dt2.Rows(0)(1).ToString)
            lv.SubItems.Add(dt2.Rows(0)(2).ToString)
            query_results.Items.Add(lv)
        Next
        If query_results.Items.Count = 0 Then
            MsgBox("Não foram encontrados registos para os parametros selecionados!")
        End If
        count_label.Text = query_results.Items.Count.ToString

    End Sub

    Private ConStrMySql As String = "server=#######; userid=#######; password=#######; database=#######"
    Private ConStrSql As String = "Data Source=#######; Initial Catalog=#######; User ID=#######; Password=#######"

    Private Function GetMySqlData(ProcDesc As Boolean, ProcRef As Boolean, ProdInput As String) As DataTable
        Dim marca_prod As String
        Dim fam_prod As String

        Dim sql = "SELECT p.referencia AS Referencia, p.descricao AS Descrição, p.tipo AS Tipo, f.nome_familia AS Familia, m.nome_marca AS Marca FROM ((produtos AS p INNER JOIN familias AS f ON p.Id_familia = f.Id_familia) INNER JOIN marcas AS m ON p.Id_marca = m.Id_marca) "

        If ProcDesc Then
            sql &= "WHERE p.descricao Like @Prod "
        ElseIf ProcRef Then
            sql &= "WHERE p.referencia LIKE @Prod "
        Else
            sql &= "WHERE (p.referencia LIKE @Prod OR p.descricao LIKE @Prod) "
        End If

        If type_1.Checked Then
            sql &= "AND p.tipo = 1 "
        ElseIf type_2.Checked Then
            sql &= "AND p.tipo = 2 "
        End If

        If combo_proc_marca.SelectedIndex = -1 And combo_proc_fam.SelectedIndex = -1 Then
            marca_prod = ""
            sql &= "AND p.Id_marca LIKE '" & marca_prod & "%' "
        ElseIf combo_proc_marca.SelectedIndex > -1 And combo_proc_fam.SelectedIndex = -1 Then
            marca_prod = combo_proc_marca.SelectedIndex + 1
            sql &= "AND p.Id_marca = " & marca_prod & " "
        ElseIf combo_proc_fam.SelectedIndex > -1 And combo_proc_marca.SelectedIndex = -1 Then
            fam_prod = combo_proc_fam.SelectedIndex + 1
            sql &= "AND p.Id_familia = " & fam_prod & " "
        ElseIf combo_proc_fam.SelectedIndex > -1 And combo_proc_marca.SelectedIndex > -1 Then
            fam_prod = combo_proc_fam.SelectedIndex + 1
            marca_prod = combo_proc_marca.SelectedIndex + 1
            sql &= "AND p.Id_familia = " & fam_prod & " AND p.Id_marca = " & marca_prod & " "
        End If

        If prod_active.Checked Then
            sql &= "AND p.disponibilidade = 1 ORDER BY ultima_atualizacao ASC"
        ElseIf prod_inactive.Checked Then
            sql &= "AND p.disponibilidade = 0 ORDER BY ultima_atualizacao ASC"
        ElseIf proc_aprov.Checked Then
            sql &= "AND p.disponibilidade = 2 ORDER BY ultima_atualizacao ASC"
        ElseIf proc_both.Checked Then
            sql &= " ORDER BY ultima_atualizacao ASC"
        End If

        Dim dt As New DataTable
        Using conn As New MySqlConnection(ConStrMySql),
            cmd As New MySqlCommand(sql, conn)
            cmd.Parameters.Add("@Prod", MySqlDbType.VarChar).Value = "'%" & ProdInput & "%'"
            conn.Open()

            Using reader = cmd.ExecuteReader
                dt.Load(reader)
            End Using
        End Using
        Return dt
    End Function

    Private Function GetSqlData(Ref As String) As DataTable
        Dim dt As New DataTable
        Using conn As New SqlConnection(ConStrSql),
            cmd As New SqlCommand("Select stock, epcult, epcpond FROM st WHERE ref = @Ref", conn)
            cmd.Parameters.Add("@Ref", SqlDbType.VarChar).Value = Ref
            conn.Open()
            Using reader = cmd.ExecuteReader
                dt.Load(reader)
            End Using
        End Using
        Return dt
    End Function