[SOLUCIONADO] Informe con Dataset y Mysql (VB.NET).

Private conexion As CapaDatos.CDConexion = New CapaDatos.CDConexion

	Private Sub ReportViewer1_Load(sender As Object, e As EventArgs) Handles ReportViewer1.Load
		ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local

		Dim Sql As DataSet = GetData("SELECT * FROM fondofijo ", "fondofijo")
		Dim DATA As Microsoft.Reporting.WinForms.ReportDataSource = New Microsoft.Reporting.WinForms.ReportDataSource("Datos", Sql.Tables())
		ReportViewer1.LocalReport.DataSources.Clear()
		ReportViewer1.LocalReport.DataSources.Add(DATA)
		ReportViewer1.LocalReport.ReportEmbeddedResource = "ReportFondoFijo.rdlc"
		ReportViewer1.LocalReport.ReportPath = "@ReportFondoFijo.rdlc"
		ReportViewer1.LocalReport.Refresh()
	End Sub

	Private Function GetData(ByVal sql As String, ByVal tabla As String) As Datos

		Dim sda As MySqlDataAdapter = New MySqlDataAdapter(sql, conexion.AbrirConexion)
		Dim da As MySqlCommandBuilder
		da = New MySqlCommandBuilder(sda)
		Dim com As Datos = New Datos
		sda.Fill(com, tabla)
		Return com
	End Function

'Llenado de detalle del reporte
		consulta.Consulta("SELECT *FROM fondofijo", "fondofijo")

		Dim bs As New BindingSource()
		bs.DataSource = consulta.ds.Tables("fondofijo")
		Dim rds As New ReportDataSource()
		rds.Name = "DatosFondo"
		rds.Value = bs


		'Llenado del cuerdo del reporte
		consulta.Consulta("SELECT *FROM fondofijocaj WHERE  usuario ='" + FormPrincipal.Usuario.Text + "'", "fondofijocaj")
		Dim bs2 As New BindingSource()
		bs2.DataSource = consulta.ds.Tables("fondofijocaj")
		Dim rds2 As New ReportDataSource()
		rds2.Name = "DatosFondo2"
		rds2.Value = bs2
		ReportViewer1.Reset()
		
		ReportViewer1.LocalReport.ReportPath = "ruta del reporte"
		ReportViewer1.LocalReport.DataSources.Clear()
"agregado de datasets al reporte"
		ReportViewer1.LocalReport.DataSources.Add(rds)
		ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", Invoice))
		ReportViewer1.LocalReport.DataSources.Add(rds2)
		ReportViewer1.RefreshReport()