[abdullah]

ولا يهمك هذا مثال ارفقته لك
[ATTACH]322[/ATTACH]
بس عاد فيجوال 2010 مادري يشتغل عندك ولا لا

اذا مافتح عندك شوف قاعدة البينات ابيك تسوي نفس اللي سويته مع قبل مع قاعدتك السابقة

وأمر الطباعة خليه كذا

كود :

Me.Validate()
        Me.التعاميمBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.Database6DataSet)

        Dim rpt As New CrystalReport1
        rpt.Load(Application.StartupPath & "\CrystalReport1.rpt")
        rpt.SetDataSource(Me.Database6DataSet)
        rpt.RecordSelectionFormula = "{التعاميم.المعرف}=" & المعرفTextBox.Text
        Form2.CrystalReportViewer1.ReportSource = rpt
        Form2.Show()