SQL更新未更新access中的记录

正在尝试更新access中表内的注释和进度值的值。结尾处的消息框将弹出，但所有值均未更改

 Sub UpdateWeeklyReport()
    Dim con As OleDbConnection
    Dim com As OleDbCommand
    con = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=C:\ProjectDatabase.mdb")


    com = New OleDbCommand("Update WeeklyReport Set Comment = @Comment, ProgressValue = @ProgressValue Where [EntryDate]='" & CBDate.SelectedValue.ToString & "' AND [AdminNo]=" & CBAdmin.SelectedValue & " AND [ClassCode]='" & CBClass.SelectedItem.ToString & "'", con)
    con.Open()
    com.Parameters.Add("@Comment", OleDbType.LongVarChar).Value = txtComment.Text
    com.Parameters.Add("@ProgressValue", OleDbType.Integer).Value = CBProgress.Text

    com.ExecuteNonQuery()
    con.Close()
    MessageBox.Show("Report Changed")
    intialconnection()
End Sub

---

结束课程

检查您的位置条件。。。放一个断点，看看你的SQLCommand，我的钱在“where”条件下是错误的，没有找到任何数据来更新所有那些条件值可以而且应该是参数的地方，特别是日期！放一个断点，看看com变量返回什么，应该返回一个错误的sqlcommand。