tu in pratica scrivi questo:
codice:
Private Sub Report_Initialize()
   Dim DBTable As CRAXDRT.DatabaseTable
   Dim CPProperties As CRAXDRT.ConnectionProperties
                
   For Each DBTable In Me.Database.Tables
                
       Set CPProperties = DBTable.ConnectionProperties
                
       CPProperties.DeleteAll
       CPProperties.Add "Provider", "SQLOLEDB"
       CPProperties.Add "Data Source", "NomeServer"
       CPProperties.Add "Initial Catalog", "NomeDatabase"
       CPProperties.Add "User ID", "sa"
       CPProperties.Add "Password", ""
                                          
   Next
End Sub
e non ti funziona, giusto?