看看这个Access存储过程的调用,程序不执行内容更新

更新新闻内容
＝＝＝＝＝＝＝＝＝＝＝
Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click 'Add News Content
        If Trim(FckNews.Value) = "" Then
            LblMsg.Text = "新闻内容不能为空！"
        Else
            Try '插入成功
                Dim Con As New Connection
                Dim NewsTitle As String = TxtNews.Text
                Dim NewsContent As String = FckNews.Value
                Dim ContentClassId As Integer = DdlClass.SelectedItem.Value
                Con.UpdateNews("UpDateNews", NewsTitle, NewsContent, Session("EditNewsId"), ContentClassId) '更新内容
                LblMsg.Text = "新闻内容已经更新添加！"
                Call BtnClear_Click(sender, e)
            Catch ex As Exception '插入失败
                LblMsg.Text = ex.Message
                '    LblMsg.Text = "服务器忙，请您稍后再试……"
            End Try
        End If    End Subcon类中被调用的更新函数
＝＝＝＝＝＝＝＝＝＝＝＝
 Function UpdateNews(ByVal sqlStr As String, ByVal Str1 As String, ByVal Str2 As String, ByVal Int1 As Integer, ByVal Int2 As Integer)
        Dim OleConn As New OleDbConnection(GetConnStr)
        Dim OleCmd As New OleDbCommand(sqlStr, OleConn)
        OleCmd.CommandType = CommandType.StoredProcedure
        OleCmd.Parameters.Add("@Str1", Str1)
        OleCmd.Parameters.Add("@Str2", Str2)
        OleCmd.Parameters.Add("@Int1", Int1)
        OleCmd.Parameters.Add("@Int2", Int2)
        OleConn.Open()
        OleCmd.ExecuteNonQuery()
        OleConn.Close()
    End Function存储过程（ACCESS数据库）
UpDateNews
＝＝＝＝＝＝＝＝＝
UPDATE News SET NewsTitle = [@Str1], NewsContent = [@Str2], ContentClassId = [@Int2]
WHERE NewsId=[@Int1];
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
通过跟踪调试，发现错误是在存储过程中，可是存储过程在使用access中的查询执行的时候是可以的
但是就是用程序调用没有反应，程序不显示任何错误，后面的程序也一样执行，就是不更新内容
望高手指教，on line waiting