[محمد العيساوي]

عندي مشكلة في شاشة كشف حركة الموردين
عند اختيار رقم المورد والضغظ على زر العرض يظهر الخطأ التالي :
data type mismatch in criteria expression
مع العلم ان الكود هو :
DGV.Rows.Clear()
        Dim STRING_ As String = "SELECT Sum(debit) , Sum(credit) FROM det_imp WHERE imp_code = '" & imp_code.Text & "' and buy_date < '" & Format(date1.Value.Date, "yyyy/MM/dd") & "' "
        Dim CMD As New OleDb.OleDbCommand(STRING_, con)
        Dim DA As New OleDb.OleDbDataAdapter
        DA = New OleDb.OleDbDataAdapter(CMD)
        Dim DT As New DataTable("det_imp")
        DA.Fill(DT)
        Dim DEBIT, CREDIT As Double

        If IsDBNull(DT.Rows(0).Item(0)) = False Then DEBIT = DT.Rows(0).Item(0)
        If IsDBNull(DT.Rows(0).Item(1)) = False Then CREDIT = DT.Rows(0).Item(1)
        '===== استخراج الرصيد السابق ==========
        Dim I = DGV.Rows.Add
        DGV.Rows(I).Cells(1).Value = "رصيد قبل فترة"
        DGV.Rows(I).Cells(2).Value = Val(DEBIT)
        DGV.Rows(I).Cells(3).Value = Val(CREDIT)
        '====================================================
        Dim DA_1 As New OleDb.OleDbDataAdapter
        DA_1 = New OleDb.OleDbDataAdapter(SQL_, con)
        Dim DS As New DataSet
        DA_1.Fill(DS)
        Dim DT_ = DS.Tables(0)
        Dim H = DT_.Rows.Count
        For M = 0 To DT_.Rows.Count - 1
            Dim F = DGV.Rows.Add
            DGV.Rows(F).Cells(0).Value = DT_.Rows(M).Item("buy_date")
            DGV.Rows(F).Cells(1).Value = DT_.Rows(M).Item("disc_")
            DGV.Rows(F).Cells(2).Value = DT_.Rows(M).Item("debit")
            DGV.Rows(F).Cells(3).Value = DT_.Rows(M).Item("credit")
            DGV.Rows(F).Cells(4).Value = DT_.Rows(M).Item("buy_code")

        Next
        Dim DE, CR, DIFF As Double
        For I = 0 To DGV.Rows.Count - 1
            DE = Val(DE) + Val((DGV.Rows(I).Cells(2).Value))
            CR = Val(CR) + Val((DGV.Rows(I).Cells(3).Value))

        Next

        DIFF = DE - CR
        txtdebit.Text = DE
        txtcredit.Text = CR
        txtdeff.Text = DIFF
ملاحظة:
قاعدة البيانات من نوع Access 2016