ما الخطإفي جملة الأستعلام هذه

جملة الأستعلام

CREATE PROCEDURE SPItemAdd
	@CCode int , @Code int , @Name varchar(30) ,
	@Qty int , @Cost float , @Price float ,
	@TYPE varchar(6) , @EXP datetime , @Store bit   
AS INSERT INTO Item (ComCode ,ItemCode , ItemName ,
    ItemQty , ItemCost , ItemPrice , ItemType,
	ItemExp ,ItemStore)
VALUES
	(@CCode,@Code , @Name , @Qty , @Cost ,
     @Price, @Type , @Exp , @Store)

تعريف متغيرات

Dim strDate as string
Dim INTST As Integer
شحن المتعيرات بقيم
strDate = Format(DTPicker1, "MM / DD / yyyy")
    If Combo2.Text = "الصيدلية" Then
        INTST = 0
    Else
        INTST = 1
    End If

جملة الأستعلام المطلوب الأستفسار عنها

SQL = "SPItemAdd'" & TxtComCode & "','" & TxtCode & "','" TxtName _
          & "','" & TxtQty & "','" & TxtCost & "','" & TxtPrice & "','" _
          & TxtType & "','" &  strDate & "','" & INTST "'"

تظهر رسالة خطأ خاصة بالتاريخ