Public Function GetCycleLinearDrive(....) As DataTable
.
.
.
 
GetCycleLinearDrive = datagridview1.datasource
 
 
End Function

datagridview2.DataSource = GetCycleLinearDrive

    Public Function GetData(ByVal grid As DataGridView) As DataTable
 
        Dim dt As New DataTable
        For i As Integer = 0 To grid.Columns.Count - 1
            dt.Columns.Add(grid.Columns(i).Name, grid.Columns(i).ValueType)
        Next i
 
        For r As Integer = 0 To grid.Rows.Count - 1
            Dim tablerow As DataRow = dt.NewRow
            For c As Integer = 0 To grid.Columns.Count - 1
                tablerow(c) = grid(c, r)
            Next c
            dt.Rows.Add(tablerow)
        Next r
        Return dt
    End Function

datagridview2.DataSource = GetData(DataGridView1)

      If grid(c, r).Value Is Nothing Then
         tablerow(c) = DBNull.Value
      Else
         tablerow(c) = grid(c, r).Value
      End If