Database name is not being changed

I am trying to make changes to the report that is in production by making a copy and connecting to development database. When i try to set the database login info dynamically using vb.net the report still connects to the production.

Dim cr As New crptInvoice()        Dim crtableLogoninfos As New TableLogOnInfos        Dim crtableLogoninfo As New TableLogOnInfo        Dim crConnectionInfo As New ConnectionInfo        Dim crTables As Tables        Dim crTable As Table        'Get database connection info        With crConnectionInfo            .ServerName = My.Settings.DevConnectionString.Split(";")(0).Split("=")(1)            .DatabaseName = My.Settings.DevConnectionString.Split(";")(1).Split("=")(1)            .UserID = My.Settings.DevConnectionString.Split(";")(3).Split("=")(1)            .Password = My.Settings.DevConnectionString.Split(";")(4).Split("=")(1)        End With        'Set database connection for all tables in report        crTables = cr.Database.Tables        For Each crTable In crTables            crtableLogoninfo = crTable.LogOnInfo            crtableLogoninfo.ConnectionInfo = crConnectionInfo            crTable.ApplyLogOnInfo(crtableLogoninfo)        Next        ' Loop through each section and find report objects          Dim crReportobjects As ReportObjects, crSubReportobject As SubreportObject, subReportDocument As ReportDocument        Dim crDatabase As Database        Dim crSections As Sections = cr.ReportDefinition.Sections        For Each crSection As Section In crSections            crReportobjects = crSection.ReportObjects            For Each crReportobject As ReportObject In crReportobjects                If crReportobject.Kind = ReportObjectKind.SubreportObject Then                    ' If a subreport is found cast as subreportobject                                            crSubReportobject = CType(crReportobject, SubreportObject)                    ' Open the sub report                                            subReportDocument = crSubReportobject.OpenSubreport(crSubReportobject.SubreportName)                    crDatabase = subReportDocument.Database                    crTables = crDatabase.Tables                    ' Loop through each table in the sub report and set the connection info                                            For Each crTable In crTables                        crtableLogoninfo = crTable.LogOnInfo                        crtableLogoninfo.ConnectionInfo = crConnectionInfo                        crTable.ApplyLogOnInfo(crtableLogoninfo)                    Next                End If            Next        Next

The report still connects to ProdDB rather than DevDB. What am i doing wrong? This used to work with VS2008 and after the upgrade to VS2012. Its not working.