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

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

كود :

    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)