1、存储过程,参考 http://www.cnblogs.com/ylbtech/archive/2012/08/14/2638257.html
2、这一句有问题 cmd.CommandText = "Exec 编号生成 '" & prefix & "','" & tablename & "'"
改成,而且红色的可以不要 cmd.CommandText = "Exec 编号生成 " & prefix & ", " & tablename