ايران ويج

سلام
Dim DBTable As String
DBTable = bo1.Text
Ad4.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D7.mdb"
Ad4.RecordSource = "select Sum(Datasum) as Sum FROM [" & DBTable & "]"
Ad4.Refresh
Text4.Text = Ad4.Recordset.Fields("Sum")
می شه با این کدی که من دارم فیلد datasumo جمع کرد تو text4 نشون داد
اگه می شه اشکالشو بهم بگین

فکر کنم یه مشکلش استفاده از کلمه sum برای نامگذاری هست. اسم تابع ها و بعضی کلمات ذخیره شده رو که بگذارید روب فیلدا فکر کنم اشکال بگیره.

این رو یک امتحانی بکن فقط خط اخرش رو تغییر دادم

بازم نشد
ad4.refresh
ارور میده
Method 'Refresh' of object 'IAdodc' Failed
چیکار دیگه می تونم بکونم؟