max = Tables("bmk").Compute("Max(BH)","[bh] like '" & bhtemp & "'" )
注意上面的取值列和条件列名称,您自己修改,按我看,BH列和bh列应该是一样的(好像列名称应该不区分大小写吧),根据您的取字符串的位置和长度看,bh列应该是字符型,但BH又如何取最大值?请确定列名称和列类型再修改对应代码