[MOHAMMED ALZWI]

السلام عليكم 
مامعنى رسالة الخطأ 
وطريقة حل الخطأ
الكود صحيح 100% 
هل يوجد مشكلة بالتاريخ

========================================CODE

Dim STR__ = "SELECT SUM(DEBIT) , SUM(CREDIT) FROM DET_IMP WHERE IMP_CODE ='" & TXT_IMP_CODE.Text & "' AND BUY_DATE < '" & D1.Value & "'"
Dim CMD As New SqlClient.SqlCommand(STR__, SQLCON)
Dim DA As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(CMD)
Dim DT As New DataTable("DET_IMPOTER")
DA.Fill(DT)

[أبو خالد الشكري]

جرب تعديل الكود إلى الشكل التالي :

كود :

    Dim STR__ As String
       STR__ = "SELECT SUM(DEBIT) , SUM(CREDIT) FROM DET_IMP WHERE IMP_CODE ='" & TXT_IMP_CODE.Text & "' AND BUY_DATE < '" & D1.Value & "'"
       Dim CMD As New SqlClient.SqlCommand(STR__, SQLCON)
       Dim DA As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(CMD)
       Dim DT As New DataTable("DET_IMPOTER")
       DA.Fill(DT)