Visual Basic.NET - datagridview a Report

Amigo, no encuentro la forma de llevar el contendo de un datagridview a Crystal Report.
He segudo varios ejemplos de la web pero no he podido adaptar ninguno.
El codigo mas abajo expuesto es el del boton buscar de un winForm y la forma de llenar el datagridview.
He leido que depende la forma de llenar el grid es como se asigna al datasource del Report .
Gracias por ayudar.

MP

Dim ldDe As Date = dpDesde.Text
Dim ldHa As Date = dPHasta.Text
Dim lcRut As String = txtRut.Text
Dim oCon As New SqlConnection(GetConnStr)
Dim sqlCons As String
If lcRut = "" Then
sqlCons = "SELECT DOCUME.tipdoc , DOCUME.numdoc, DOCUME.fecdoc, DOCUME.rut, PROVEED.RAZONSOC, docume.tneto as Neto" & _
" FROM DOCUME LEFT JOIN " & _
"PROVEED ON DOCUME.rut = PROVEED.CODPROV" & _
" where docume.fecdoc between '" & ldDe & "' and '" & ldHa & "'"
Else
sqlCons = "SELECT DOCUME.tipdoc as TD, DOCUME.numdoc NumDocto, DOCUME.fecdoc as Emision, DOCUME.rut as RUT , PROVEED.RAZONSOC as Nombre,docume.tneto as Neto" & _
" FROM DOCUME LEFT JOIN " & _
"PROVEED ON DOCUME.rut = PROVEED.CODPROV" & _
" WHERE DOCUME.rut = '" & lcRut & "' and docume.fecdoc between '" & ldDe & "' and '" & ldHa & "'"
End If
Try
Dim DocAdapter As New SqlDataAdapter(sqlCons, oCon)
DocAdapter.Fill(docDataSet, "docume")
With Me.DataGridView1
.DataSource = docDataSet
.DataMember = "docume"
End With
setup_grid()
Catch ex As Exception
MsgBox(ex.Message)
Finally
oCon.Close()
End Try