Pasar datos de datagridview a cristal report

Tengo un form el cual esta conectado a sql server

Al cargar el form1 me trae los datos de una tabla y me los muestra en el datagridview

Estos datos del grid quiero pasarlos a crystal report y tengo este código y los pasa bien pero después de abrir el reporte varias veces aparece este error vshost32.exe dejo de funcionar

Me podrían decir si falta cerrar algo en el form1 para que no mande este error o me falta algo muchas gracias

Imports CrystalDecisions. CrystalReports. Engine
Imports System. Windows. Forms
Imports System. Data. SqlClient
Imports System. Data. OleDb
Imports System. Data. SqlClient. SqlException
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Try
Dim dt As New DataTable

Dim conexion As String = "Data Source=miip;Initial Catalog=locacosar;Integrated Security=True"

Using adaptador As New SqlDataAdapter("select numpedido, fechapedido, almacenpedido, almacensurtido, usuariopedido, estatus from pedido ", conexion)

adaptador.Fill(dt)

End Using

DataGridView1.DataSource = dt
DataGridView1.Columns(0).HeaderText = "# DE PEDIDO" ' cambiar el nombre de la columna de la tabla
DataGridView1.Columns(1).HeaderText = "FECHA DE PEDIDO"
DataGridView1.Columns(2).HeaderText = " ALMACEN DE PEDIDO"
DataGridView1.Columns(3).HeaderText = "ALMACEN QUE SURTIRA "
DataGridView1.Columns(4).HeaderText = "QUIEN HACE PEDIDO"
DataGridView1.Columns(5).HeaderText = "ESTATUS"

Catch ex As Exception
MessageBox.Show(ex.Message, "atencion", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim dt As New DataTable
dt = Me.DataGridView1.DataSource

Dim cr As New CrystalReport1
cr.SetDataSource(dt)

Dim R As New Form2

R.CrystalReportViewer1.ReportSource = cr
R.ShowDialog()

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

End Sub

End Class