感谢坛子里各位达人对小可的帮助，还是那个实现朴素贝叶斯算法的程序，其他的问题基本都已排除，只是建立分类规则时，系统Access表中某一格有空值，结果就程序无法处理了。提示贝叶斯算法TrainData进程出错。能不能做一修改，让程序能把Access数据表中某一列中的空值当成一个另外的值来处理呢？或者说可以用一段代码事先将待分析的数据表扫过一遍，遇到一个空值就赋予另外的一个值代表未知？
包中有该程序的说明，Data文件夹下是系统的测试数据库
本程序对于VB的数据库系统编程有很高的参考和学习价值，但希望各位能够尽量不要散布该程序源代码。