مساعدة من فظلكم خطأ عند الحفظ - نسخة قابلة للطباعة

كود :
Public Sub Insert_Re_Sale_Tbl(ByVal R_Sale_ID As Int32, ByVal R_Sale_Date As Date, ByVal Cus_ID As Int32, ByVal Item_Count As Int32, ByVal FinalTotal As Double, ByVal SalesMan As String)

        Dim Cmd As New SqlCommand

        With Cmd

            .Connection = Con

            .CommandType = CommandType.Text

            .CommandText = "Insert Into Re_Sale_Tbl ( R_Sale_ID,R_Sale_Date,Cus_ID,Item_Count,FinalTotal,SalesMan)values(@R_Sale_ID,@R_Sale_Date,@Cus_ID,@Item_Count,@FinalTotal,@SalesMan)"

            .Parameters.Clear()

            .Parameters.AddWithValue("@R_Sale_ID", SqlDbType.Int).Value = R_Sale_ID

            .Parameters.AddWithValue("@R_Sale_Date", SqlDbType.Date).Value = R_Sale_Date

            .Parameters.AddWithValue("@Cus_ID", SqlDbType.Int).Value = Cus_ID

            .Parameters.AddWithValue("@Item_Count", SqlDbType.Int).Value = Item_Count

            .Parameters.AddWithValue("@FinalTotal", SqlDbType.Decimal).Value = FinalTotal

            .Parameters.AddWithValue("@SalesMan", SqlDbType.varchar).Value = SalesMan

        End With

        If Con.State = 1 Then Con.Close()

        Con.Open()

        Cmd.ExecuteNonQuery()

        Con.Close()

        MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")

        Cmd = Nothing

    End Sub