Por favor nesecito alguien que me auxilie!

Ya no se que hacer para poder generar ese ebndito reporte.

Mediante este video:
Create Crystal Report from Visual Basic .Net 2008 using Data in DataGridView - YouTube

Y este Tutorial:
Leandro Tuttini Blog: [Crystal Reports] - Exportar DataGridView a Crystal

He podido crear este codigo:

Código:

Dim dt = New Moto1DataSet

        For Each dr As DataGridViewRow In Me.ClienteDataGridView.Rows
            dt.cliente.AddclienteRow(dr.Cells("Id").Value, dr.Cells("Nombre").Value, dr.Cells("Telefono").Value, dr.Cells("Direccion").Value, dr.Cells("Email").Value)
            '
        Next
        Dim rptdoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
        rptdoc = New CrystalReport1
        rptdoc.SetDataSource(dt)
        Form7.CrystalReportViewer1.ReportSource = rptdoc
        Form7.ShowDialog()
        Form7.Dispose()

Pero al ejecutarlo me lanza el siguiente error:"No se pudo encontrar la columna denominada Id."

Por favor Auxilio!! porque es ese error!.

Este es mi proyecto por si queren ver un panorama mas detallado:
https://dl.dropbox.com/u/39401031/motosfinal.rar

vb.net 2010

Ya lo logre, con este codigo:

Código:

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Dim MyDataSet As New Moto1DataSet 'Conjunto de datos
        Dim MyDataTable As New Moto1DataSet.MotosDataTable 'EL dataTable del conjunto de datos
        Dim mi_rptSocios As New CrystalReport2 'Documento cristal reports
        'Dim miReporte As New Form7 'Formulario visor
        Dim filas As Integer = Me.MotosDataGridView.Rows.Count
        Dim i As Integer = 0
        For i = 0 To filas - 1
            'Paso los datos al dataset el "DataGridViewTextBoxColumn" se encuentra dentro de
            ' la propiedad Columns(coleccion)>Diseño>Name
            MyDataTable.Rows.Add(Me.MotosDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn6").Value,
            Me.MotosDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn7").Value,
            Me.MotosDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn8").Value,
            Me.MotosDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn9").Value,
            Me.MotosDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn10").Value,
            Me.MotosDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn11").Value,
            Me.MotosDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn12").Value,
            Me.MotosDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn13").Value,
            Me.MotosDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn14").Value,
            Me.MotosDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn15").Value,
            Me.MotosDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn16").Value)

        Next (i)
        '"Cliente" es la tabla en el dataset
        MyDataSet.Tables("Motos").Merge(MyDataTable)
        mi_rptSocios.SetDataSource(MyDataSet)
        Form8.CrystalReportViewer1.ReportSource = mi_rptSocios
        Form8.Show()
    End Sub

Agregar esto al final justo antes de </configuration> en app.config de tu proyecto si usas visual studio 2010 y framework 4.0

  <startup useLegacyV2RuntimeActivationPolicy="true">
    <supportedRuntime version="v4.0"/>
  </startup>

gracias por nada.

si fueses tan amable de pasar el codigo para saber como te quedo estaria muy agradecido XD