Crystal reports- Record selection formula and export to pdf

Hi Everyone,

could you please help me with this crystal report problem
i have problem setting the RecordSelectionFormula and exporting to pdf.for some reason it doesn't take/set the record selection formula. but if do with the web viewer,instead of pdf it works fine. i am lost please help.
here is the code below.any alternatives are welcome

Dim myreport As New ReportDocument
Dim UserId, Password, ServerName, DatabaseName As String

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
InitializeComponent()
myreport.Load("C:\Crystal\qwert.rpt")
UserId = "aaa"
Password = "bbb"
ServerName = "ccc"
DatabaseName = "dddd"
LogonToDatabase(myreport, UserId, Password, ServerName, DatabaseName)
myreport.DataDefinition.RecordSelectionFormula = "{CLIENT.USERID} in ['ABC']"
PrintToPdfWithStream(myreport)

End Sub


Public Shared Sub LogonToDatabase(ByVal MyReport As CrystalDecisions.CrystalReports.Engine.ReportDocument, ByVal UserId As String, ByVal Password As String, Optional ByVal ServerName As String = "", Optional ByVal DatabaseName As String = "")
Dim MyTable As CrystalDecisions.CrystalReports.Engine.Table
Dim MyConnectionInfo As New CrystalDecisions.Shared.ConnectionInfo
Dim MyLogonInfo As New CrystalDecisions.Shared.TableLogOnInfo
If ServerName <> "" Then
MyConnectionInfo.ServerName = ServerName
MyConnectionInfo.DatabaseName = DatabaseName
End If
MyConnectionInfo.UserID = UserId
MyConnectionInfo.Password = Password
MyLogonInfo.ConnectionInfo = MyConnectionInfo
For Each MyTable In MyReport.Database.Tables
MyTable.ApplyLogOnInfo(MyLogonInfo)
Next
End Sub


Public Sub PrintToPdfWithStream(ByVal MyReport As CrystalDecisions.CrystalReports.Engine.ReportDocument)
Dim MyExportOptions As New CrystalDecisions.Shared.ExportOptions
MyExportOptions.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
Dim MyExportRequestContext As New CrystalDecisions.Shared.ExportRequestContext
MyExportRequestContext.ExportInfo = MyExportOptions
Dim MyStream As System.IO.Stream
MyStream = MyReport.FormatEngine.ExportToStream(MyExportRequestContext)
Response.ClearHeaders()
Response.ClearContent()
Response.ContentType = "application/pdf"
Dim MyBuffer(MyStream.Length) As Byte
MyStream.Read(MyBuffer, 0, CType(MyStream.Length, Integer))
Response.BinaryWrite(MyBuffer)
Response.End()

End Sub

Thanks in advance