سلام دوست عزیز
برنامه شما هر کار کردم روی سیستمم خطا میده و اجرا نیمشه
ولی بااین کد تست کد مشکلی نداره
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()
سورسش هم موجوده میتونم براتون بزارم