Export Crystal Report to PDF and open it in Acrobat Reader instead of Internet Explorer

[Dave]

Is this possible? Here is my current code (which opens the pdf in Internet
Explorer)

Dim crReportDocumen t As
CrystalDecision s.CrystalReport s.Engine.Report Document
Dim crExportOptions As CrystalDecision s.shared.Export Options
Dim crDiskFileDesti nationOptions As
CrystalDecision s.shared.DiskFi leDestinationOp tions
Dim Fname As String
crReportDocumen t = New
CrystalDecision s.CrystalReport s.Engine.Report Document
crReportDocumen t.Load("C:\Inet pub\wwwroot\SAF DB\JobHoursRepo rt.rpt")
Try
Dim tbCurrent As CrystalDecision s.CrystalReport s.Engine.Table
Dim tliCurrent As CrystalDecision s.Shared.TableL ogOnInfo

For Each tbCurrent In crReportDocumen t.Database.Tabl es
tliCurrent = tbCurrent.LogOn Info
With tliCurrent.Conn ectionInfo
.ServerName = "NOVAPRJ"
.UserID = "sa"
.Password = "sa"
.DatabaseName = "NSSApplication "
End With
tbCurrent.Apply LogOnInfo(tliCu rrent)
Next tbCurrent
Catch ex As Exception
Response.Write( ex.Message)
Finally
End Try

Dim StartYear As Integer
Dim StartMonth As Integer
Dim StartDay As Integer
Dim EndYear As Integer
Dim EndMonth As Integer
Dim EndDay As Integer

crReportDocumen t.Refresh()
Fname = "c:\Reports \" & Session.Session ID.ToString & ".pdf"
crDiskFileDesti nationOptions = New
CrystalDecision s.shared.DiskFi leDestinationOp tions
crDiskFileDesti nationOptions.D iskFileName = Fname
crExportOptions = crReportDocumen t.ExportOptions
With crExportOptions
.DestinationOpt ions = crDiskFileDesti nationOptions
.ExportDestinat ionType =
CrystalDecision s.Shared.Export DestinationType .DiskFile
.ExportFormatTy pe =
CrystalDecision s.Shared.Export FormatType.Port ableDocFormat
End With
crReportDocumen t.Export()
' The following code writes the pdf file to the Client's browser.
Response.ClearC ontent()
Response.ClearH eaders()
Response.Conten tType = "applicatio n/pdf"
'Response.Write File(Fname)
Response.Redire ct(Fname)
Response.Flush( )
Response.Close( )
Response.ClearC ontent()
Response.End()
System.IO.File. Delete(Fname)
crReportDocumen t.Close()