PEPINO DATASET

      Dim DA1, DA2, DA3 As MySqlDataAdapter
        Dim dsAltura As New Altura14626
         
        Try
            Dim sql As String
            dsAltura.Clear()


            sql = [Ô]SELECT * FROM CLIENTES WHERE CODCLI = 1[Ô]
            objConexao.Open()
            DA1 = New MySqlDataAdapter(sql, objConexao)
            DA1.Fill(dsAltura, [Ô]CLIENTE[Ô])

            sql = [Ô]SELECT * FROM CLIENTES WHERE CODCLI = 11[Ô]
            DA2 = New MySqlDataAdapter(sql, objConexao)
            DA2.Fill(dsAltura, [Ô]SOLICITANTE[Ô])

            sql = [Ô]SELECT OS,DESCRPROD FROM tb_quedadescr_14626 WHERE OS = 123456[Ô]
            DA3 = New MySqlDataAdapter(sql, objConexao)
            DA3.Fill(dsAltura, [Ô]tb_quedadescr_14626[Ô])
             
            Dim oRPxz As ReportDocument
            oRPxz = New Rel_14626_Completo
            oRPxz.SetDataSource(dsAltura)
 
            Dim tela2 As New Impressao14626
            tela2.Tag = [Ô]CRPT --> ALTURA[Ô]
            tela2.CrptAltura.ReportSource = oRPxz
            tela2.CrptAltura.RefreshReport()
            tela2.ShowDialog()

            DA1.Dispose()
            DA2.Dispose()
            DA3.Dispose()


        Catch ex As Exception
            MsgBox(ex.ToString)
            [ô] Response.Write([Ô]Erro Conexão![Ô])
        Finally
            objConexao.Close()
        End Try