Formula in Crystal Report

See more:

VS2008

Visual-Studio

Dear All

I still create program with vb.net 2005
When i want show report with crystal report .
The data not show. :(
I use CR 9 for report.

This is my code

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data.SqlClient
Public Class frmReport
    Dim MyTable As CrystalDecisions.CrystalReports.Engine.Table
    Dim MyLogin As CrystalDecisions.Shared.TableLogOnInfo
    Dim rsAkses As ADODB.Recordset
    Dim RptUser As rptBeli
    Private Sub frmReport_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' Dim Ssql As String
        Dim strConnection As String = "server=posmi-child;database=IT_INVENTORY;uid=arjuna;pwd=wicaksono;"
        Dim Connection As New SqlConnection(strConnection)
        Dim strSQL As String = "Select * From T_PEMBELIAN WHERE NO_DOK='" & frmEquipment.TextBox1.Text & "'"
        Dim DA As New SqlDataAdapter(strSQL, Connection)
        Dim DS As New DataSet
        RptUser = New rptBeli
        For Each MyTable In RptUser.Database.Tables
            MyLogin = MyTable.LogOnInfo
            MyLogin.ConnectionInfo.Password = "wicaksono"
            MyLogin.ConnectionInfo.UserID = "arjuna"
            MyLogin.ConnectionInfo.ServerName = "POSMI-CHILD"
            MyLogin.ConnectionInfo.DatabaseName = "IT_INVENTORY"
            MyTable.ApplyLogOnInfo(MyLogin)
        Next
        DA.Fill(DS)
        CS.SelectionFormula = "{T_PEMBELIAN.NO_DOK}='" & frmEquipment.TextBox1.Text & "'"
        CS.ReportSource = RptUser
    End Sub
End Class

If i give comment in line
'

CS.SelectionFormula = "{T_PEMBELIAN.NO_DOK}='" & frmEquipment.TextBox1.Text & "'"

the data show, if i give uncomment the data not show
what's wrong with my code
Please help me
Thanks
Regards
Wicaksono