risolto

Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
Dim objdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
Dim varformula As String

varformula = "{tabella1.codice}= " & CodiceTextBox.Text
Form2.CrystalReportViewer1.SelectionFormula = varformula

objdoc.Load(Application.StartupPath & "\crystalreport1.rpt")

For Each tbCurrent In objdoc.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
'.ServerName = myDataSource
.UserID = ""
.Password = ""
.DatabaseName = "Agenzia Immobiliare"
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent

Form2.CrystalReportViewer1.ReportSource = objdoc
Form2.CrystalReportViewer1.RefreshReport()
Form2.ShowDialog()