Visual Basic - urgents,ayuda pleseeeeeeeeeeeeeeeeee

desde visual consigo ver un informe de crystalreport10 de sql server sin ningun problema.pero cuando meto la formula me da un error
nose puede realizar conexcion
nose encuentra dns en la cadena de conexion

el codigo es este

Dim crx As CRAXDRT.Application
Dim informe As CRAXDRT.Report
Dim crxtabla As CRAXDRT.DatabaseTable
Set crx = New CRAXDRT.Application
Set informe = crx.OpenReport(dir)
For Each crxtabla In informe.Database.Tables
crxtabla.Location = App.Path & "\con.udl"
Next
")

informe.DiscardSavedData
informe.RecordSelectionFormula = selformula

For i = 0 To UBound(formulas)
arrData = Split(formulas(i), "=")
'informe.FormulaFields.GetItemByName(arrData(0)).Text = arrData(1)
Next

Load Form2

With Form2
.CRViewer1.ReportSource = informe