You can use the below code to generate the report.
Dim crReportDoc As New ReportDocument()
Dim crpConnectionInfo As New ConnectionInfo()
crReportDoc.Load(FilePath)
crpConnectionInfo.AllowCustomConnection = True
crpConnectionInfo.ServerName = [servername]
crpConnectionInfo.DatabaseName = [dbname]
crpConnectionInfo.UserID = [username]
crpConnectionInfo.Password = [password]
For Each tblCurrent In _crReportDoc.Database.Tables
crpTableLogonInfo = tblCurrent.LogOnInfo
crpTableLogonInfo.ConnectionInfo = crpConnectionInfo
tblCurrent.ApplyLogOnInfo(crpTableLogonInfo)
Next
crReportDoc.VerifyDatabase()
crReportDoc.SetParameterValue("@Datum", odDatumPicker.Value)
CrystalReportViewer1.ReportSource = crReportDoc
Please change the ConnectionInfo