DATASET COM MAIS DE UMA TABELA

    Dim Conexao As New Conexao
    [ô]definir as variáveis de conexão
    Sub GerarRelatorio(ByVal CODCLI As String, ByVal CODFABR As String, ByVal DESCPRO As String)
        Dim dsPc As New RelSolicitacao
        [ô]Dim Codigo As String
        [ô]definir a string de conexão e as instruções sql para cada tabela
        Dim sqlSolicitacao As String = [Ô]SELECT * FROM CADCLI_PROD[Ô] & _
                                       [Ô] LEFT JOIN CADCLI ON CADCLI.CLI_CODIGO =CADCLI_PROD.REL_CODCLI[Ô] & _
                                       [Ô] LEFT JOIN CADPRO ON CADCLI_PROD.REL_DESCPRO = CADPRO.PRO_DESC[Ô] & _
                                       [Ô] LEFT JOIN CADFABRICANTE ON CADCLI_PROD.REL_CODFABR = CADFABRICANTE.FAB_CODIGO[Ô] & _
                                       [Ô] WHERE REL_CODCLI = [ô][Ô] & CODCLI & [Ô][ô] AND REL_CODFABR = [ô][Ô] & CODFABR & [Ô][ô] AND REL_DESCPRO = [ô][Ô] & DESCPRO & [Ô][ô][Ô]
        Try
            [ô]Criar os objetos dataadatper
            Conexao.Conectar()
            Conexao.da = New MySqlDataAdapter(sqlSolicitacao, Conexao.Conexao)
            [ô]Preenche as tabelas do dataset usando o dataadapter
            Conexao.da.Fill(dsPc, [Ô]cadcli_prod[Ô])
            [ô]Preencher o relatório e exibí-lo no visualizador
            Dim rptSolicitacao As New RelxSolicitacao
            rptSolicitacao.SetDataSource(dsPc)
            CrystalReportViewer.ReportSource = rptSolicitacao
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub