آقا من اومدم ابرو رو درست کنم، زدم چشو کور کردم

درست است که گزارش من در هر حال اطلاعات شرکت الف را می‌آورد ولی با این حال اجرا می‌شد. خواستم کاری کنم تا یک جورائی رکوردست به گزارش ارسال شود ولی نمی‌دانم چه شده که در خط قرمزرنگ زیر اجرای گزارش به خطا منجر می‌شود.
Dim crApp As New CRAXDRT.Application
Dim crReport As New CRAXDRT.Report
Set crReport = crApp.OpenReport(App.Path & "\Reports\RepJurnals.Rpt")
crReport.Database.LogOnServer "p2ssql.dll", DbInstance,
DatabaseName, "sa", ""
For Each crDBTab In crReport.Database.Tables
crDBTab.SetLogOnInfo DbInstance, DatabaseName, "sa", ""
Next

خطای زمان اجرای برنامه روی این خط هست:
invalid TLV record