خطأ عند الفتح للطباعة أكثر من مرة

تحدث عندي مشكلة بسيطة وهي عندما أقوم بطباعة التقرير

يظهر التقرير في وضع المعاينة وكل شي أوك

عند معاودة فتحة مرة أخرى تظهر لي الرسالة الحالية

وهذا هو الكود المستخدم لعملية الطباعة

حيث أن rsdb يرمز للسجلات وهو مستخدم في أكثر من فورم

حيث أنه معرف بتعريف عام في الموديول

 'بيانات الخطاب
 With DataReport4
.Sections("section2").Controls("lID").Caption = rsdb!id
.Sections("section2").Controls("lcode").Caption = rsdb!Code
.Sections("section5").Controls("lName").Caption = rsdb!Name
.Sections("section5").Controls("lxFrom").Caption = rsdb!xFrom
.Sections("section2").Controls("lday").Caption = rsdb!Day
.Sections("section5").Controls("lNameToo").Caption = rsdb!NameToo
.Sections("section2").Controls("lDatOut").Caption = rsdb!DatOut
.Sections("section2").Controls("lDatin").Caption = rsdb!Datin
.Sections("section5").Controls("lcarno").Caption = rsdb!carno
.Sections("section5").Controls("lnumsp").Caption = rsdb!numsp
.Sections("section5").Controls("lnumout").Caption = rsdb!numout


 End With


If lID = "" Then
MsgBox "قم بأضافة سجل "
Exit Sub
End If

'بحث عن السجل
If rsdb.State = 1 Then rsdb.Close
rsdb.Open "select * from Table1 where Code = '" & Trim(TCode.Text) & "'", db, adOpenStatic, adLockPessimistic


'عرض التقرير إذا كان السجل موجود

'كل الشغل هنا , ومعنا الكود التالي هو وضع مصدر بيانات
'البحث , كمصدر بيانات للتقرير
Set DataReport4.DataSource = rsdb
'عرض التقرير
DataReport4.Show
'إذا كنت تريد طباعة التقرير بمجرد الضغط على الزر
'DataReport1.PrintReport True


'إذا لم يجد الرقم بقاعدة البيانات يظهر هذه الرسالة

 If rsdb.State = adStateOpen Then
Set rsdb = Nothing
End If