Crystal Report มันฟ้องแบบนี้ช่วยทีคับ จะ present แล้ว

        Dim tm As New Globalization.CultureInfo("th-TH")
        Dim Rpt As New CrystalReport3
        Rpt.RecordSelectionFormula = "{EMSalary.EM_ID} = " & CInt(ComboBox1.Text) & _
        "and {EMSalary.TimeID} = #" & (DTP1.Value.ToString(tm)) & "#)"
        CrystalReportViewer1.ReportSource = Rpt
        CrystalReportViewer1.Refresh()