ใช้เคยใช้ Crystal Report บ้าง ช่วยผมที่งับๆๆ CrystalReportViewer1.ReportSource ... CrystalReportViewer1 ... DataBind ..

CN.ConnectionString = "provider=SQLOLEDB;data source=" & Svr & ";user id=" _
                     & UserID & ";Password=" & password & ";persist security info=False"

        'Dim sql As String = " SELECT mis_fullname,mis_userID,mis_position_dept,mis_type_mis,mis_total_date FROM tb_approve"
        'sql &= " WHERE (mis_fullname='" & Drp_emp_name.SelectedValue & "')"
        'sql &= " AND (status='5')"

        Dim sql As String = " SELECT * FROM tb_approve"

        Dim DA As New OleDbDataAdapter(sql, CN)
        Dim DS As New DataSet
        DA.Fill(DS, "Qry_string")


        Try
            If DS.Tables("Qry_string").Rows.Count > 0 Then
 Dim rpt As New CrystalReport_Emp
                 rpt.SetDataSource(DS)
                CrystalReportViewer1.ReportSource = rpt
                CrystalReportViewer1.DataBind()

            End If
        Catch ex As Exception

        End Try