load data into CrystalReport by generated TableAdapter.Fill() DataTable

Dim c As DataTable = Me.dsNorthwind.Customers

Me.taCustomers.Fill(c)
Me.crtAllCustomer.SetDataSource(c)
Me.crvCustomers.ReportSource = Me.crtAllCustomer
Me.crvCustomers.DisplayGroupTree = False

Me.crvCustomers.Zoom(70)