It Does Not Send The Data Into Database Please

 This is my procedure which I need to send the Data into Database, But it does not generate any error and it does not send the information into Database, May I have done wrong, any one to look on that please.

 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, ProductQnty, ProductPrice) VALUES (" & _

"'" & Session("OrderID") & "', " & _"'" & 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

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, ProductQnty, ProductPrice) VALUES (" & _
"'" & Session("OrderID") & "', " & _
"'" & 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