เวลาออก Crystal Report มีให้ใส่รหัส DB ตลอด มีวิธีแก้ยังไงคับ

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared


Public Class frm_sentdoc

    Private Sub frm_sentdoc_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(directory & "\\myCrystalReport.rpt")
        rpt.Load("C:\Users\grow\Desktop\Asset 2018\Asset 2018\report\nosentdocandsent\reportsentdoc.rpt")
        Me.CrystalReportViewer1.ReportSource = rpt
        Me.CrystalReportViewer1.Refresh()

    End Sub
End Class