public class CDEstadoCuentaAhorro
    {


        public static string NombreSocio  { get; set; }
        public static int NoSocio { get; set; }
        public static string Direccion { get; set; }
        public static string Localidad { get; set; }
   

       public static string FechaApartura { get; set; }
       public static string NumeroCuenta { get; set; }
       public static string TasaInteres { get; set; }
       public static string Estado { get; set; }
       public static double SaldoAlDia { get; set; }
       public static string Colonia { get; set; }
        
}

Try
			Dim sql As String = "INSERT INTO solicitud_1  (Cod_Sol ,Cod_Soc,Cod_Cony,Nombre_Emp,Nombre_Soc,Nombre_Cony,Est_Soc,Est_Cony,Naci_So_Di,Naci_So_Mes,Naci_So_Año,Naci_Cony_Di,Naci_Cony_Mes,Naci_Cony_Año 
,Est_Civil,Tiemp_Resid,Casa,Do_CyN,Do_CoyLo,Do_Mun,Do_Estado,Do_CP,Do_Refer,Telefono,No_Telefono,T_HoraLLa,P_Monto,P_Plazo,P_FP,P_NoC,RFC,ClasFisCre,A_Eco_1,A_Eco_2,A_Eco_3,A_Eco_4,A_Eco_5 
,A_Eco_6,A_E_NePr_1,A_E_NePr_2,A_E_NePr_3 ,A_E_NePr_4,A_E_NePr_5 ,A_E_NoNe_1,A_E_NoNe_2,A_E_NoNe_3,A_E_NoNe_4,A_E_NoNe_5,A_E_NoNe_6,A_E_Mes_1,A_E_Mes_2,A_E_Mes_3,A_E_Mes_4,A_E_Mes_5,A_E_Mes_6,A_E_Año_1,A_E_Año_2,A_E_Año_3,A_E_Año_4,A_E_Año_5,A_E_Año_6 
,Descrip_Credito,Ventas,Sueldos,Remesas,Cosechas,Otra,Otra_desc,Rentas,Pensiones,Prospera,Procampo,Pe_Relacionada) VALUES (?Cod_Sol ,?Cod_Soc,?Cod_Cony,?Nombre_Emp,?Nombre_Soc,?Nombre_Cony,?Est_Soc,?Est_Cony,?Naci_So_Di,?Naci_So_Mes,?Naci_So_Año,?Naci_Cony_Di,?Naci_Cony_Mes,?Naci_Cony_Año 
,?Est_Civil,?Tiemp_Resid,?Casa,?Do_CyN,?Do_CoyLo,?Do_Mun,?Do_Estado,?Do_CP,?Do_Refer,?Telefono,?No_Telefono,?T_HoraLLa,?P_Monto,?P_Plazo,?P_FP,?P_NoC,?RFC,?ClasFisCre,?A_Eco_1,?A_Eco_2,?A_Eco_3,?A_Eco_4,?A_Eco_5 
,?A_Eco_6,?A_E_NePr_1,?A_E_NePr_2,?A_E_NePr_3 ,?A_E_NePr_4,?A_E_NePr_5 ,?A_E_NoNe_1,?A_E_NoNe_2,?A_E_NoNe_3,?A_E_NoNe_4,?A_E_NoNe_5,?A_E_NoNe_6,?A_E_Mes_1,?A_E_Mes_2,?A_E_Mes_3,?A_E_Mes_4,?A_E_Mes_5,?A_E_Mes_6,?A_E_Año_1,?A_E_Año_2,?A_E_Año_3,?A_E_Año_4,?A_E_Año_5,?A_E_Año_6 
,?Descrip_Credito,?Ventas,?Sueldos,?Remesas,?Cosechas,?Otra,?Otra_desc,?Rentas,?Pensiones,?Prospera,?Procampo,?Pe_Relacionada)"
			Dim Comando As New MySqlCommand(sql, con.AbrirConexion)
			Comando.Parameters.AddWithValue("?Cod_Sol", txtnosocio.Text + txtnoCred.Text)
			Comando.Parameters.AddWithValue("?Cod_Soc", txtnosocio.Text)
			Comando.Parameters.AddWithValue("?Cod_Cony", txtnocony.Text)
			Comando.Parameters.AddWithValue("?Nombre_Emp", txtnombreemple.Text)
			Comando.Parameters.AddWithValue("?Nombre_Soc", txtnombresociio.Text)
			Comando.Parameters.AddWithValue("Nombre_Cony", txtnombreconyu.Text)
			Comando.Parameters.AddWithValue("?Est_Soc", txtestadosocio.Text)
			Comando.Parameters.AddWithValue("?Est_Cony", txtestadocony.Text)
			Comando.Parameters.AddWithValue("?Naci_So_Di", txtdian.Text)
			Comando.Parameters.AddWithValue("?Naci_So_Mes", txtmesn.Text)
			Comando.Parameters.AddWithValue("?Naci_So_Año", txtañon.Text)
			Comando.Parameters.AddWithValue("?Naci_Cony_Di", txtnadiaconyu.Text)
			Comando.Parameters.AddWithValue("?Naci_Cony_Mes", txtmesncony.Text)
			Comando.Parameters.AddWithValue("?Naci_Cony_Año", txtañoncony.Text)
			Comando.Parameters.AddWithValue("?Est_Civil", txtregimen.Text)
			Comando.Parameters.AddWithValue("?Tiemp_Resid", txttiempor.Text)
			Comando.Parameters.AddWithValue("?Casa", txtcasa.Text)
			Comando.Parameters.AddWithValue("?Do_CyN", txtcalle.Text)
			Comando.Parameters.AddWithValue("?Do_CoyLo", txtlocalidad.Text)
			Comando.Parameters.AddWithValue("?Do_Mun", txtmunicipio.Text)
			Comando.Parameters.AddWithValue("?Do_Estado", txtestado.Text)
			Comando.Parameters.AddWithValue("?Do_CP", txtCP.Text)
			Comando.Parameters.AddWithValue("?Do_Refer", txtreferencias.Text)
			Comando.Parameters.AddWithValue("?Telefono", txtttelefono.Text)
			Comando.Parameters.AddWithValue("?No_Telefono", txtTelefono.Text)
			Comando.Parameters.AddWithValue("?T_HoraLLa", txthora.Text)
			Comando.Parameters.AddWithValue("?P_Monto", txtmonto.Text)
			Comando.Parameters.AddWithValue("?P_Plazo", txtplazo.Text)
			Comando.Parameters.AddWithValue("?P_FP", txtfrecuenciap.Text)
			Comando.Parameters.AddWithValue("?P_NoC", txtnoCred.Text)
			Comando.Parameters.AddWithValue("?RFC", txtrfc.Text)
			Comando.Parameters.AddWithValue("?ClasFisCre", txtclasificacioncredito.Text)
			Comando.Parameters.AddWithValue("?A_Eco_1", txtacte1.Text)
			Comando.Parameters.AddWithValue("?A_Eco_2", txtacte2.Text)
			Comando.Parameters.AddWithValue("?A_Eco_3", txtacte3.Text)
			Comando.Parameters.AddWithValue("?A_Eco_4", txtacte4.Text)
			Comando.Parameters.AddWithValue("?A_Eco_5", txtacte5.Text)
			Comando.Parameters.AddWithValue("?A_Eco_6", txtacte6.Text)
			Comando.Parameters.AddWithValue("?A_E_NePr_1", txtnegociop1.Text)
			Comando.Parameters.AddWithValue("?A_E_NePr_2", txtnegociop2.Text)
			Comando.Parameters.AddWithValue("?A_E_NePr_3", txtnegociop3.Text)
			Comando.Parameters.AddWithValue("?A_E_NePr_4", txtnegociop4.Text)
			Comando.Parameters.AddWithValue("?A_E_NePr_5", txtnegociop5.Text)
			Comando.Parameters.AddWithValue("?A_E_NoNe_1", txtnombNegocio1.Text)
			Comando.Parameters.AddWithValue("?A_E_NoNe_2", txtnombNegocio2.Text)
			Comando.Parameters.AddWithValue("?A_E_NoNe_3", txtnombNegocio3.Text)
			Comando.Parameters.AddWithValue("?A_E_NoNe_4", txtnombNegocio4.Text)
			Comando.Parameters.AddWithValue("?A_E_NoNe_5", txtnombNegocio5.Text)
			Comando.Parameters.AddWithValue("?A_E_NoNe_6", txtnombNegocio6.Text)
			Comando.Parameters.AddWithValue("?A_E_Mes_1", txtmes1.Text)
			Comando.Parameters.AddWithValue("?A_E_Mes_2", txtmes2.Text)
			Comando.Parameters.AddWithValue("?A_E_Mes_3", txtmes3.Text)
			Comando.Parameters.AddWithValue("?A_E_Mes_4", txtmes4.Text)
			Comando.Parameters.AddWithValue("?A_E_Mes_5", txtmes5.Text)
			Comando.Parameters.AddWithValue("?A_E_Mes_6", txtmes6.Text)
			Comando.Parameters.AddWithValue("?A_E_Año_1", txtaño1.Text)
			Comando.Parameters.AddWithValue("?A_E_Año_2", txtaño2.Text)
			Comando.Parameters.AddWithValue("?A_E_Año_3", txtaño3.Text)
			Comando.Parameters.AddWithValue("?A_E_Año_4", txtaño4.Text)
			Comando.Parameters.AddWithValue("?A_E_Año_5", txtaño5.Text)
			Comando.Parameters.AddWithValue("?A_E_Año_6", txtaño6.Text)
			Comando.Parameters.AddWithValue("?Descrip_Credito", txtdescripcion.Text)
			Comando.Parameters.AddWithValue("?Ventas", txtventas.Text)
			Comando.Parameters.AddWithValue("?Sueldos", txtsueldos.Text)
			Comando.Parameters.AddWithValue("?Remesas", txtremesas.Text)
			Comando.Parameters.AddWithValue("?Cosechas", txtcosechas.Text)
			Comando.Parameters.AddWithValue("?Otra", txtotra.Text)
			Comando.Parameters.AddWithValue("?Otra_desc", txtotrades.Text)
			Comando.Parameters.AddWithValue("?Rentas", txtrentas.Text)
			Comando.Parameters.AddWithValue("?Pensiones", txtpensiones.Text)
			Comando.Parameters.AddWithValue("?Prospera", txtprospera.Text)
			Comando.Parameters.AddWithValue("?Procampo", txtprocampo.Text)
			Comando.Parameters.AddWithValue("?Pe_Relacionada", txtpersonarel.Text)

			Comando.ExecuteNonQuery()
			MessageBox.Show("Datos guardados")
			
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try

'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()

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