Visual Basic.NET - Imprimir informe Crystal vb.net

Buenos días.

Estoy migrando de vb6 a vb.net. y para imprimir un reporte de crystal lo hacía así:

CrystalReport1.ReportFileName = "C:\TRABAJO\PROGRAMAS\INGLES\RPTERRORES.RPT"
CrystalReport1.Destination = 0 '0 windows
CrystalReport1.Action = 1

pero claro en vb.net no es así.

Me podrías echar una mano y escribirme el código para que me deje imprimir.

Un saludo

Dim cnn As New OleDb.OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & Application.StartupPath & "/josecuello.mdb;")
Me.DataGridView1.ForeColor = Color.Black
Dim da As New OleDb.OleDbDataAdapter("SELECT REFERENCIA, TIPO_PRODUCTO AS PRODUCTO, TALLA, COSTO, COLOR FROM PRODUCTOS WHERE ESTADO='TRUE'", cnn)
Dim ds As New DataSet

Dim rpt As New ReporteProductos
rpt.SetDataSource(ds)
frmReporte.crvMiReporte.ReportSource = rpt
frmReporte.Refresh()
frmReporte.Show()