I have a problem with the selection formula to be used by crystal report 10. At first I just set one selection formula and it's work and now i want to used two selection formula but I do not know how to write it. Below is the code and the word highlight with red color is the formula i want to add.Can anyone teach me how..


Code:

Private Sub ListView1_DblClick()

        
        ndLeaApprEmpNo = Trim(ListView1.SelectedItem.SubItems(3))
        ndLeaApprLCode = Trim(ListView1.SelectedItem.SubItems(1))
        ndLeaApprDt = Trim(ListView1.SelectedItem.SubItems(4))
        'MsgBox ndLeaApprEmpNo & ", " & ndLeaApprLCode & ", " & ndLeaApprDt
        Unload Me
        
        Me.MousePointer = vbHourglass
        Dim crApp As CRAXDRT.Application
        Dim Report As CRAXDRT.Report
        Dim strSelectionfrm As String
        Set crApp = New CRAXDRT.Application
        Set Report = crApp.OpenReport("C:\Program Files\Microsoft Visual Studio\VB98\Projects\LeaveApp\LeaveForm2.rpt")
    
    
        Report.Database.Tables(1).SetLogOnInfo "SQL", "tebrauteguh", "sa", "sa"
        '{tblLeaveApp.EmpNo}='" & ndLeaApprEmpNo & "' -->another selection formula i want to add, how to combine both
        strSelectionfrm = "{tblLeaveApp.Date_App}='" & ndLeaApprDt & "'"

        Report.RecordSelectionFormula = strSelectionfrm
        Report.DiscardSavedData
        Form8.CRV.ReportSource = Report
        Form8.CRV.ViewReport
        
        Form8.Show
        Form6.Hide
    Me.MousePointer = vbNormal
        

End Sub