01.SqlParameter = "{PROC_EMPLOYEES;1.DYDATE} >= #" & ConvertDMY(Me.DTStartDate.Value, "y-m-d") & " 00:00:00# "
02.SqlParameter &= "AND {PROC_EMPLOYEES;1.DYDATE} <= #" & ConvertDMY(Me.DTEndDate.Value, "y-m-d") & " 23:59:59# "
03.
04. Report.Load(Application.StartupPath & "/Report/rptEmpRecord.rpt")
05.
06. Dim rptTLog As New CrystalDecisions.Shared.TableLogOnInfo
07. rptTLog.ConnectionInfo.ServerName = SVName
08. rptTLog.ConnectionInfo.DatabaseName = DBName
09. rptTLog.ConnectionInfo.UserID = UID
10. rptTLog.ConnectionInfo.Password = PWD
11.
12.For i As Short = 0 To Report.Database.Tables.Count() - 1
13. Report.Database.Tables(i).ApplyLogOnInfo(rptTLog)
14.Next
15.
16.Report.RecordSelectionFormula = SqlParameter
17.Report.Refresh()
18.
19.Report.SetParameterValue("@EMPNO", Me.txtEmpNo.Text.Trim())
20.Report.SetParameterValue("EmployeeNo", Me.txtEmpNo.Text.Trim())
21.Report.SetParameterValue("EmployeeName", EmployeeName)
22.Report.SetParameterValue("Department", Department)
