VB.NET与Access数据库无缝连接类库：高效执行SQL命令

'SQL Serve数据库操作基类
Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class CDBbase
    '成员变量   
    '数据库连接字符
    'Public Shared conString As String = ConfigurationSettings.AppSettings("ConnectionString")
    Public Shared conString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=水泵.mdb;persist security info=false"
    Public Shared Myobject As Object
    Public Shared oboleconnection As OleDbConnection
    Public Shared oboleCommand As OleDbCommand
    Public Shared oboleadapter As OleDbDataAdapter
    '函数方法
    '执行不返回结果数据集的SQL语句，如更新、插入、删除等操作
    Public Shared Function ExecuteSql(ByVal sSql As String) As Short
        oboleconnection = New OleDbConnection(conString) '创建连接
        oboleCommand = New OleDbCommand(sSql, oboleconnection) '定义SQL查询语句，("select * from tab_load",  oboleconnection)
        Try
            oboleconnection.Open() '打开连接
            oboleCOmmand.ExecuteNonQuery()
            ExecuteSql = 0
        Catch ex As Exception
            Throw New Exception(ex.Message)
        Finally
            oboleconnection.Dispose()
            oboleconnection.Close()
        End Try
    End Function
    ' OleDB控件用的是OleDb的驱动程序，可以访问各种数据库   

    'SQL控件用的是专用的驱动程序，能高效的访问SQL   Server数据库
    'SQLConnection只能访问SQL   Server，而OleDbConnection则可以访问所有数据库。   
    '如果只是访问SQL   Server的话，SQL比OleDb更快。  

    '执行存在性查询语句，如用户注册时查询该用户名是否已经存在
    Public Shared Function ExecuteSqlEx(ByVal sSql As String) As Short
        Dim myReader As OleDbDataReader '读取数据源行记录
        oboleconnection = New OleDbConnection(conString)
        oboleCommand = New OleDbCommand(sSql, oboleconnection) '定义SQL查询语句
        Try
            oboleconnection.Open()
            myReader = oboleCommand.ExecuteReader() '发送SQL语句
            If myReader.Read Then
                ExecuteSqlEx = 0
            Else
                Throw New Exception("value unavaible")
            End If
        Catch ex As Exception
            Throw New Exception(ex.Message)
        Finally
            oboleCOmmand.Dispose()
            oboleconnection.Close()
        End Try
    End Function

    '执行仅返回一个数据集的SQL语句，dataset数据集
    Public Shared Function Execute4DS(ByVal sSql As String) As DataSet
        Dim dsTemp As DataSet
        oboleconnection = New OleDbConnection(conString)
        Try