Commit Update To SQL Database Table

The following code will not update and commit the update to a SQL Database Table.  Now my where statement is looking for a Date field.  Could this be the problem?

Dim DBConn As SqlConnection

Dim DBAdd As New SqlCommand

Dim strConnect As String = ConfigurationManager.ConnectionStrings("ProtoCostConnectionString").ConnectionString

DBConn = New SqlConnection(strConnect)





'Update a existing row in the table



DBAdd.CommandText = "UPDATE [D12_MIS] SET [CSJ] = @CSJ, [EST_DATE] = @EST_DATE, [RECORD_LOCK_FLAG] = @RECORD_LOCK_FLAG, [EST_CREATE_BY_NAME] = @EST_CREATE_BY_NAME, [EST_REVIEW_BY_NAME] = @EST_REVIEW_BY_NAME, [m2_1] = @m2_1, [m2_2_date] = @m2_2_date, [m2_3_date] = @m2_3_date, [m2_4_date] = @m2_4_date, [m2_5] = @m2_5, [m3_1a] = @m3_1a, [m3_1b] = @m3_1b, [m3_2a] = @m3_2a, [m3_2b] = @m3_2b, [m3_3a] = @m3_3a, [m3_3b] = @m3_3b WHERE [EST_DATE] = " & EstDateText





With DBAdd.Parameters



.AddWithValue("@CSJ", pvCSJ.Text)

.AddWithValue("@EST_DATE", tmp1Date)

.AddWithValue("@RECORD_LOCK_FLAG", tmpRecordLock)

.AddWithValue("@EST_CREATE_BY_NAME", CheckedCreator)

.AddWithValue("@EST_REVIEW_BY_NAME", CheckedReviewer)

.AddWithValue("@m2_1", vb2_1)

.AddWithValue("@m2_2_date", tmp2Date)

.AddWithValue("@m2_3_date", tmp3Date)

.AddWithValue("@m2_4_date", tmp4Date)

.AddWithValue("@m2_5", vb2_5)

.AddWithValue("@m3_1a", vb3_1a)

.AddWithValue("@m3_1b", vb3_1b)

.AddWithValue("@m3_2a", vb3_2a)

.AddWithValue("@m3_2b", vb3_2b)

.AddWithValue("@m3_3a", vb3_3a)

.AddWithValue("@m3_3b", vb3_3b)

End With

 

DBAdd.Connection = DBConn

DBAdd.Connection.Open()

Dim rowsAffected As Integer = 0

Try

rowsAffected = DBAdd.ExecuteNonQuery

Catch ex As Exception

tb2_2.Text = ex.ToString()

Finally

DBAdd.Connection.Close()

End Try

tb2_1.Text = rowsAffected