VB.Net ดึงข้อมูลมาใส่ Crystal Report แล้วติด User และ Password

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class Load_Report

    Private Sub Load_Report_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim rpt As New ReportDocument()

        Dim directory As String = My.Application.Info.DirectoryPath
        rpt.Load("c:\users\bank\documents\visual studio 2010\Projects\Issue_Requistion\Issue_Requistion\Isslip.rpt")
        rpt.SetDatabaseLogon("dbre", "passdb", "serv", "serv")
        rpt.SetParameterValue("wonum", frm_ISSLIP.txtWo.Text)
 
        Me.CrystalReportViewer1.ReportSource = rpt
        Me.CrystalReportViewer1.Refresh()
        'Me.ReportViewer1.RefreshReport()
    End Sub