在VB中实现数据库连接池可以使用ADO.NET中的Connection Pooling功能，它通过自动管理连接对象的打开和关闭，可以提高应用程序的性能，并避免数据库连接泄露。连接池的优点是可以复用现有的连接对象，避免频繁创建和释放连接对象，从而提高程序效率。
在VB中使用连接池可以通过以下步骤实现：
在连接字符串中设置连接池大小
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=MyServer;Initial Catalog=MyDB;User Id=MyUser;Password=MyPassword;Pooling=True;Max Pool Size=100;"
其中，Pooling=True表示启用连接池功能，Max Pool Size=100表示连接池的最大连接数为100个。
打开数据库连接
conn.Open()
执行SQL语句
cmd = New OleDbCommand("SELECT * FROM MyTable", conn) cmd.ExecuteNonQuery()
关闭数据库连接
conn.Close()
需要注意的是，打开的数据库连接必须在使用完后及时关闭，否则会导致连接泄露。如果使用了连接池功能，则关闭连接并不是真正地关闭连接对象，而是将连接对象放回连接池中以备下次使用。