سلام دوست عزیز
برنامه شما هر کار کردم روی سیستمم خطا میده و اجرا نیمشه
ولی بااین کد تست کد مشکلی نداره
 
 Dim con As New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector  y|\Database1.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")
Dim dta As New SqlDataAdapter("select * from daneshjoo", con) 
       Dim ds As New DataSet
        Dim dtabel As New DataTable("daneshjoo")
        dta.Fill(dtabel)
        ds.Tables.Add(dtabel)
        StiReport1.RegData(ds)
        StiReport1.Dictionary.Synchronize()
        StiReport1.Show()
سورسش هم موجوده میتونم براتون بزارم