How To Make This Insert Data Into Sql Database

Hallow

My code does not insert Data into Database, please can someone look on it and give a technical problem over here please

It does not generate any error please, when I CLICK THE BUTTON IT DOES NOT GENERATE ERROR, IT GIVE ME THE MESSAGE THAT ITEM ADDED, BUT WHEN I LOOK MY TABLE NOTHING ID INSIDE Sub Add_To_Cart(ByVal Src As Object, ByVal Args As EventArgs)

 Dim FVProductID As Label = FormView1.FindControl("ProductID")

Dim FVProductName As Label = FormView1.FindControl("ProductName")Dim FVProductPrice As Label = FormView1.FindControl("ProductPrice")

 Dim DBConnection As SqlConnection Dim DBCommand As SqlCommand

Dim sql As String

Dim SQLAddString As String

 DBConnection = New SqlConnection("Data Source=MANDARISQLEXPRESS;Initial Catalog=SHOES;Integrated Security=True")

DBConnection.Open()

If Not Session("OrderID") Is Nothing Then

 sql = "SELECT Count(*) FROM ShoppingCart " & _ "WHERE OrderID = '" & CType(Session("OrderID"), String) & "' " _

& "AND ProductID = '" & FVProductID.Text & "'"

 DBCommand = New SqlCommand(sql, DBConnection)

 

If DBCommand.ExecuteScalar() = 0 Then

 SQLAddString = "INSERT INTO ShoppingCart (OrderID, ProductID, OrderDate, ProductName, ProductPrice, ProductQnty) VALUES (" & _

"'" & CType(Session("OrderID"), String) & "', " & _"'" & FVProductID.Text & "', " & _

"'" & Today() & "', " & _"'" & FVProductName.Text & "', " & _

"'" & FVProductPrice.Text & "', 1)"DBCommand = New SqlCommand(SQLAddString, DBConnection)

DBCommand.ExecuteNonQuery()

End If

End If

DBConnection.Close()

 

Src.Text = "Item Added"Src.ForeColor = Color.FromName("#990000") Src.BackColor = Color.FromName("#E0E0E0")

Src.Font.Bold = True

 

End Sub