Dim adapter6 As New MySqlDataAdapter
Dim ds6 As New DataSetMySQL
adapter6.SelectCommand = New MySqlCommand("SELECT * FROM Muestra where cod_reg='" & Imp_CodReg & "'", conexion_mysql.conexion_mysql)
adapter6.Fill(ds6.Tables("Muestra"))
Me.ReportViewer2.RefreshReport()
ReportViewer2.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
'ReportViewer1.LocalReport.ReportPath = System.Environment.CurrentDirectory & "\Imp_Doc_Reg.rdlc"
ReportViewer2.LocalReport.DataSources.Clear()
ReportViewer2.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("Registro", ds.Tables("Registro")))
ReportViewer2.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("VariablesSistema", ds2.Tables("VariablesSistema")))
ReportViewer2.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("Usuarios", ds3.Tables("Usuarios")))
ReportViewer2.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("infractor", ds4.Tables("infractor")))
ReportViewer2.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("Licencia", ds5.Tables("Licencia")))
ReportViewer2.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("Muestra", ds6.Tables("Muestra")))
ReportViewer2.PrintDialog()