Reporte con dos dataset

[Highlander]

Hola el asunto es que tengo un reporte(cristal) un dataset(creado manualmente) y una form donde lo llamo y le asigno el datasource, todo funciona bien.

Necesito ahora mostrar mas datos en mi reporte y no puedo hacerlo con una sola consulta, así que le agrege dos tablas a mi dataset, pero al momento de generar el reporte solo aparecen los datos de la primera tabla.

Así lo hago ahora:
Private Sub ReporteOrdenTemplado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Try

mSqlServerExpress.Conectar()

Dim frmOrdenThermopanel As frmOrdenThermopanel = frmOrdenThermopanel.Instance

Dim CodigoOrdenThermopanel As Integer = frmOrdenThermopanel.Codigo

Dim strsqlconsulta As String = "SELECT OrdTrabajoThermopanel.Venta, Vendedores.Nombre as Vendedor, ItemOrdTrabajoThermopanel.Cantidad, Logo.Logo FROM OrdTrabajoThermopanel LEFT JOIN Vendedores ON Vendedores.Codigo = OrdTrabajoThermopanel.CodigoVendedor LEFT JOIN ItemOrdTrabajoThermopanel ON ItemOrdTrabajoThermopanel.CodOrdTrabajoThermopanel = OrdTrabajoThermopanel.Codigo LEFT JOIN Logo ON Logo.Codigo = 1 WHERE OrdTrabajoThermopanel.Codigo = " & CodigoOrdenThermopanel & "; SELECT ItemResumenThermopanel.Cristal, ItemResumenThermopanel.TotalCantidad FROM ItemResumenThermopanel WHERE ItemResumenThermopanel.CodOrdTrabajoThermopanel = " & CodigoOrdenThermopanel & ""

Dim da As New SqlDataAdapter(strsqlconsulta, conexionSqlEx)
Dim ds As DataSet = New DataSet()

da.Fill(ds)
ds.Tables(0).TableName = "OrdenThermopanel"
ds.Tables(1).TableName = "ResumenThermopanel"


Dim CrReport As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent

' Asigno el reporte
CrReport = New CrystalDecisions.CrystalReports.Engine.ReportDocum ent()
CrReport.Load(Application.StartupPath & "\OrdenThermopanel.rpt")
CrReport.SetDataSource(ds)

CrystalReportViewer1.ReportSource = CrReport

mSqlServerExpress.Desconectar()

Catch ex As Exception
MessageBox.Show("Error generando el reporte: " & ex.Message, "Mostrando Reporte")
End Try

End Sub[/CODE]

Gracias por cualquier sugerencia.