How can I make CrystalReport get Data source Location from the Code

Public Class Form1
 
 
    Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
 
 
        Dim dbm As New DatabaseManager
 
        Dim ds As New Data.DataSet
 
        Dim SQLs As String
 
 
 
 
        Dim rpt As New CrystalReport1
 
        rpt.Load(Application.StartupPath & "\" & "CrystalReport1.rpt")
 
        SQLs = "SELECT * from Date_Person where ID_Person=9"
 
        ds = dbm.ExecuteStatement(SQLs)
 
 
 
        rpt.SetDataSource(ds)
 
        rpt.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.DefaultPaperOrientation
 
        CrystalReportViewer1.ReportSource = rpt
 
        CrystalReportViewer1.Zoom(1)
 
        CrystalReportViewer1.Refresh()
 
        CrystalReportViewer1.Show()
 
 
        dbm.ClearParameters()
    End Sub
End Class