Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dt As New DataTable
dt = Me.SocioDataGridView.DataSource
Dim hc As New REPORTEC
hc.SetDataSource(dt)
Dim R As New REPORTE_ACCION
R.CrystalReportViewer1.ReportSource = hc
R.ShowDialog()
End Sub