[norman]

ارجو المساعدة من الاساتذة في الفيجوال بيسك
لدي قاعدة بيانات اكسس فيها جدوال ويحتوي على عدة حقول من ضمنها حقل التاريخ وحقل الاجمالي( رقم بتنسيق عملة) 
اريد المساعدة بكود جمع حقل الاجمالي بشرط اكبر من تاريخ محدد
على ان يتم الجمع على الجدول وليس على الداتاغريدفيو  وبموجب  Function
ارجو المساعدة
استخدمت هذا الكود ولم يعطي نتيجة

كود :

   Public Function Sum_MDF()
       Dim Number As Double = 0
       Dim IDMM As Integer = Val(FatoraID.Text.Trim)
       Dim XS As String
       XS = LblSbyDateMP.Text
       Try
           Dim cmd As New OleDbCommand(" Select Sum(Kema) From PayDF Where FtoraID = " & IDMM & " and DataDF > '" & CDate(XS) & "' ",
           cmd.Parameters.Clear()
           cmd.Parameters.AddWithValue("@FtoraID", IDMM)
           cmd.Parameters.AddWithValue("@DataDF", XS)
           If Conn.State <> ConnectionState.Open Then Conn.Open()
           Number = cmd.ExecuteScalar
       Catch ex As Exception

       Finally
           Conn.Close()
       End Try
       Return Number
   End Function