VB.数据表添加记录时实现