ربط البرنامج بأكثر من مصدر للبيانات

بسم الله الرحمن الرحيم

تظهر هذه المشكله معى عند الضغط على الطباعه

علما بان الكود المستخدم هو

If rs.RecordCount = 0 Then
Beep
msg "áÇ ÊæÌÏ ÈíÇäÇÊ ãÓÌáå", ""
Exit Sub
End If

Dim db As New ADOX.Catalog				 'ÃäÔÇÁ ãÊÛíÑíä áÃäÔÇÁ ÌÏæá ÇáÃÓÊÚáÇã
Dim cm As New ADODB.Command
''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''
db.ActiveConnection = cn								 'ÃäÔÇÁ ÌÏæá ÇáÃÓÊÚáÇã
cm.CommandText = "select s1 as [ÇáÃÓã],s2 as [ÇáÚäæÇä],s3 as [åÇÊÝ ÇáÚãá],s4 as [åÇÊÝ ÇáãäÒá],s5 as [ÇáãÍãæá],s6 as [ÇáÃíãíá],s7 as [ãáÇÍÙÇÊ] from mytab order by s1"
db.Views.Delete "qmtb"				  'ÍÐÝ ÌÏæá ÇáÃÓÚáÇã
db.Views.Append "qmtb", cm				'ÃäÔÇÁ ÌÏæá ÇáÃÓÊÚáÇã


CrystalReport1.DataFiles(0) = App.Path & "\main\tel.MDB"	   'ÊÍÏíÏ ÞÇÚÏÉ ÇáÈíÇäÇÊ
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
CrystalReport1.ReportFileName = App.Path & "\rpt\4.rpt"
CrystalReport1.Connect = "pwd=999999"	  'ÊÍÏíÏ ßáãÉ ÓÑ ÞÇÚÏÉ ÇáÈíÇäÇÊ
CrystalReport1.Action = 1			  'ÃÈÏÇ ÇáØÈÇÚå

مع العلم أنى ربطت البرنامج بقاعده بيانات وملفات Random

ويحدث نفس الخطا لو أن البرنامج متصل بأكثر من قاعدة بيانات

يظهر الخطا فى

CrystalReport1.Action = 1

ولكن على ما أعتقد أن سبب الخطا هو

CrystalReport1.DataFiles(0) = App.Path & "\main\tel.MDB"

حيث ان هذا الكود يحدد قاعدة البيانات الأفتراضيه الخاصه بالتقرير

وهى قاعدة البيانات الأفتراضيه الوحيده بالبرنامج

ولكن لو أضفت قاعدة بيانات أخرى للبرنامج يصبح غير صحيح

هل أجد الحل عند أحد الأخوه

وجزاكم الله خيرا