Visual Basic

<br />
Private Sub myReportForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        Try<br />
            ChildFormAutoSizeFit(Me)<br />
            Me.Cursor = Cursors.WaitCursor<br />
            Me.MdiParent = frmMain<br />
<br />
            crxApp = New CRAXDRT.Application<br />
<br />
            crxReport = crxApp.OpenReport(strCRSourcePath, CrystalDecisions.Shared.OpenReportMethod.OpenReportByDefault)<br />
<br />
            crxDataBase = crxReport.Database<br />
            crxTables = crxDataBase.Tables<br />
<br />
            For Each crxTable In crxTables<br />
                crxTable.Location = DataSource 'My .mdb source path<br />
                crxTable.SetLogOnInfo("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & crxDataBasePath, "myDatabase.mdb", "", "myPassword")<br />
            Next crxTable<br />
<br />
'**** Note:<br />
  'When ever i used this recordSelectionFormula? it works properly<br />
  'and it get connected and show the report but then this<br />
  'recordSelectionFormula is something limited for filtering data thats<br />
  'why i need to use more flexible filter like CRXDRT.Report.SqlQueryString<br />
  'but then my problem is the login connection from the database is somewhat failed...<br />
'****<br />
<br />
            'this RecordSelectionFormula works<br />
            'crxReport.RecordSelectionFormula = strSelectionfrm<br />
<br />
            'this SQLQueryString failed.. why?? what's the different?<br />
            crxReport.SQLQueryString = strSqlQuery<br />
<br />
            AxCRViewer1.ReportSource = crxReport<br />
            AxCRViewer1.ViewReport()<br />
<br />
        Catch ex As Exception<br />
            MsgBox(ex.ToString())<br />
        Finally<br />
            Me.Cursor = Cursors.Default<br />
        End Try<br />
    End Sub<br />
<br />

<br />
strSelectionfrm = "{CmpnyDetails.IDNo} like '*' and {tblCompanyDetails.Status} = 'REGULAR' and {Attendance.AFrom} in #" & Format(DatePickerFrom.Value, "MM/dd/yyyy") & "# to #" & Format(DatePickerTo.Value, "MM/dd/yyyy") & "#"<br />

<br />
strfilter = "Select * from CmpnyDetails as cd left outer join Attendance as att on att.IDNo = cd.IDNo where (att.AFrom Between #" & Format(DatePickerFrom.Value, "MM/dd/yyyy") & "# and #" & Format(DatePickerTo.Value, "MM/dd/yyyy") & "#) and cd.[Status] = 'REGULAR' and cd.IDNo like '*'"<br />

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click<br />
        Dim dateTimeInfo As DateTime = DateTime.Now<br />
<br />
<br />
        Dim Emp_IDDataRow As DataRow<br />
        Comdataset = Com.getCOMDataset<br />
        Emp_IDDataRow = Comdataset.EMPLOYEE_DETAIL.FindByEmp_ID(txtID.Text)<br />
        With Me<br />
            If Emp_IDDataRow IsNot Nothing Then<br />
                txtPass.Text = Emp_IDDataRow!Password.ToString<br />
                MessageBox.Show("Login Successful!", "infor", MessageBoxButtons.OK, MessageBoxIcon.Information)<br />
                Me.TextBox1.Text = .getdate()<br />
                txttime.Text = Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)<br />
                txttime.DataBindings.Add("text", LOGIN_OUTBindingSource, "LogIn_time")<br />
                MessageBox.Show(dateTimeInfo)<br />
                Form2.Show()<br />
                           ElseIf Emp_IDDataRow IsNot Nothing Then<br />
                MessageBox.Show("Invalid Password!", "Error", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)<br />
            ElseIf Emp_IDDataRow IsNot Nothing Then<br />
                MessageBox.Show("Invalid ID", "ERROR", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)<br />
            End If