مشکل در فراخوانی در هنگام اتصال به sql

[ENG_Torshani]

Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Dim crDBTab As CRAXDRT.DatabaseTable
Private Sub Cmd_SetData_Click()
Set crRept = crApp.OpenReport(App.Path & "\Report\RepFolow.rpt")
crRept.Database.LogOnServer "p2ssql.dll", ".", StrServer, "", ""
For Each crDBTab In crRept.Database.Tables
crDBTab.SetLogOnInfo ".", StrServer, "", ""
Next
CrystalReport.ReportSource = crRept
CrystalReport.ViewReport
crRept.DiscardSavedData
Set crApp = Nothing
Set crRept = Nothing
End Sub



سلام دوستان عزیز

من یک بانک به نام Exam دارم در sql و یک جدول که گزارش خود را با آن میسازم

در سال جدید بانک من جدید میشود

نام بانک من به Exam1 تغییر میکند ولی دقیقا محتوای Exam را دارد و یک کپی از آن است با اطلاعات جدید

من در کد بالا متغییر StrServer حاوی نام بانک من میباشد وقتی آن را تغییر میدهم به Exam1 باز هم اطلاعات جدول Exam فراخوانی میشود من برای حل این مشکل چه کنم؟