SoloCodigo

quiero cambiar la cadena de conexion de mi reporte pero no se deja, me tope este codigo pero no funciona no marca ningun error pero el reporte sigue tomando la conexion vieja.

saludos y de antemano gracias

Dim Connection As New ConnectionInfo

        With Connection
            .ServerName = "RptServer"
            .DatabaseName = "RptBase"
            .UserID = "sa"
            .Password = "55"
        End With

Private Sub RepConnInfo(ByVal myConnectionInfo As ConnectionInfo, ByVal myReportDocument As ReportDocument)
        Dim myTables As Tables = myReportDocument.Database.Tables
        For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables
            Dim myTableLogonInfo As New TableLogOnInfo
            myTableLogonInfo.ConnectionInfo = myConnectionInfo
            myTable.ApplyLogOnInfo(myTableLogonInfo)
        Next
    End Sub