用VB写的代码,需要与数据库连接,希望对有些人能有所帮助