vb.net查询更新添加删除access数据库（标准化类库）

vb.net查询更新添加删除access数据库（标准化类库）部分代码： Imports System.Data.SqlClient Imports System.Configuration Imports System.Collections.Generic Imports System.Text Imports System.Data Imports System.ConfigurationSettings Imports System.Data.OleDb Public Class Database Private ConnStr As String Private AcConn As OleDbConnection ''' '''数据库连接路径及方式''' ''' Sub New() 'ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "Test.mdb;Persist Security Info=False" ConnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "Test.accdb;Persist Security Info=False" End Sub New(ByVal OleConnStr As String) ConnStr = OleConnStr End Sub New(ByVal AcessVision As String, ByVal DataSource As String, ByVal PersistInfo As String) 'connectionString = System.ConfigurationSettings.GetConfig("Supermarket") '连接2010数据库'connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=F:GCU.accdb" '连接03-07数据库ConnStr = "Provider=" & AcessVision & ";Data Source=" & DataSource & ";Persist Security Info=" & PersistInfo End Sub ''' '''数据库连接字符串''' ''' ''' ''' Public Property OleConnStr() As String Get Return ConnStr End Get Set(ByVal value As String) ConnStr = value End Set End Property