With crConnectionInfo
            .ServerName = varPub.LeggiServer & "\sqlexpress"
            .DatabaseName = "CalCond"
            .IntegratedSecurity = True
        End With
 For Each crTable In crTables
            crTableLogOnInfo = New CrystalDecisions.Shared.TableLogOnInfo
            'crTableLogOnInfo = crTable.LogOnInfo
            crTableLogOnInfo.ConnectionInfo = crConnectionInfo
            crTableLogOnInfo.ConnectionInfo.DatabaseName = "CalCond"

            crTable.ApplyLogOnInfo(crTableLogOnInfo)
            crTable.LogOnInfo.ConnectionInfo.ServerName = varPub.LeggiServer & "\sqlexpress"
            crTable.LogOnInfo.ConnectionInfo.DatabaseName = "calCond"
            crTable.LogOnInfo.ConnectionInfo.IntegratedSecurity = True
            If crTable.TestConnectivity() Then
                varPub.crReportDocument.Database.Tables(i).Location = varPub.crReportDocument.Database.Tables(i).Location.ToString.Substring(varPub.crReportDocument.Database.Tables(i).Location.LastIndexOf(".") + 1)
                varPub.scriviFile("DOPO***************************************")
                varPub.scriviFile("Integrity: " & crTable.LogOnInfo.ConnectionInfo.IntegratedSecurity)
                varPub.scriviFile("database: " & crTable.LogOnInfo.ConnectionInfo.DatabaseName)
                varPub.scriviFile("varPub.LeggiServer: " & varPub.LeggiServer)
                varPub.scriviFile("Server: " & crTable.LogOnInfo.ConnectionInfo.ServerName)
                varPub.scriviFile("nome Tabella: " & crTable.LogOnInfo.TableName)
                varPub.scriviFile("FINE DOPO")
            Else
                varPub.scriviFile("DOPO***************************************")
                varPub.scriviFile("test connettività non riuscito")
                varPub.scriviFile("Integrity: " & crTable.LogOnInfo.ConnectionInfo.IntegratedSecurity)
                varPub.scriviFile("database: " & crTable.LogOnInfo.ConnectionInfo.DatabaseName)
                varPub.scriviFile("varPub.LeggiServer: " & varPub.LeggiServer)
                varPub.scriviFile("Server: " & crTable.LogOnInfo.ConnectionInfo.ServerName)
                varPub.scriviFile("nome Tabella: " & crTable.LogOnInfo.TableName)
                varPub.scriviFile("FINE DOPO")
            End If
            i += 1      
        Next