Open Crystal Report Very Slow

I'm Sorry, This is My Code to Open Report :

Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports CrystalDecisions.Windows.Forms
Imports CrystalDecisions.ReportSource

Private Sub OpenReport()
Try
Dim rpt As New CReportCARBON
Dim cmmd As New SqlCommand
Dim mycon As SqlConnection = Conn

cmmd.Connection = mycon

cmmd.CommandText = "Select * from fnReportAC('" & Format(TxtDate.Value, "yyyy-MM-dd") & "','7')"

Dim myda As New SqlClient.SqlDataAdapter()
Dim myds As New RSUPDataSet

myda.SelectCommand = cmmd

myda.Fill(myds, "dtCARBON")

rpt.SetDataSource(myds)
CRV.ReportSource = rpt
CRV.RefreshReport()

Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Thanks