参数化查询，一个参数未指定值？

Question

Select Case 表名称
            Case "结算单附件"
                二进制存文件SQL = "update 结算单附件 set 结算单附表=@R缓冲区 where 公司名称=@R公司名称 and 日期=@R日期"
                Dim 存二进制文件命令 As New OleDb.OleDbCommand(二进制存文件SQL, 存二进制文件数据库连接)
                存二进制文件命令.Parameters.Add("@R缓冲区", OleDbType.Binary)
                存二进制文件命令.Parameters("@R缓冲区").Value = 内存流
                存二进制文件命令.Parameters.Add("@R公司名称", OleDbType.BSTR)
                存二进制文件命令.Parameters("@R公司名称").Value = 公司名称
                存二进制文件命令.Parameters.Add("@R日期", OleDbType.BSTR)
                存二进制文件命令.Parameters("@R日期").Value = 日期
                存二进制文件命令.ExecuteNonQuery()
        End Select
        存二进制文件数据库连接.Close()

---

http://hi.baidu.com/useek/blog