Class clsDbConnection are generic SQL or Oracle Connection that easy to used how to connect into server, update, insert, delete, retrieve record or execute the query statement. See sample code below:

'Retrieve Record
Public Function ProjectCode(ByVal ProjectDescription As String) As String
  Dim sql = "SELECT * FROM project_1 WHERE pr1_name = '" & ProjectDescription & "'"
  Dim oTable As DataTable = clsDbConnection.ExecuteTable(clsDbConnection.CONSTRING, _
      CommandType.Text, sql)
  Dim reader As New DataTableReader(oTable)
  If oTable.Rows.Count > 0 Then
    Do While reader.Read
       Return reader(1).ToString & reader(2).ToString & reader(0).ToString
    Loop
    reader.Close()
End If
oTable = Nothing
End Function

'Insert Record
Public Sub AddBatchPending(ByVal UserID As String, ByVal BatchNo As String, _
   ByVal TaskID As String, ByVal ProjectName As String)
  Try
    Dim param(3) As ParameterBuilder
    param(0) = New ParameterBuilder("@ba_no", DbType.String)
    param(0).Value = BatchNo
    param(1) = New ParameterBuilder("@tk1_id", DbType.String)
    param(1).Value = TaskID
    param(2) = New ParameterBuilder("@user_id", DbType.String)
    param(2).Value = UserID
    param(3) = New ParameterBuilder("@pr1_name", DbType.String)
    param(3).Value = ProjectName
    Dim SQL As String = "INSERT INTO pending(ba_no,tk1_id,user_id,pr1_name) _
      VALUES('" & param(0).Value & "','" & param(1).Value & "','" & _
      param(2).Value & "','" & param(3).Value & "')"
    clsDbConnection.ExecuteNonQuery(clsDbConnection.ConnProcess & _
      "RES-TRACKING", CommandType.Text, SQL, param)
  Catch ex As Exception
    MessageBox.Show(ex.ToString)
  End Try
End Sub

'Delete Record
Public Sub RemoveBatchPending(ByVal UserID As String, ByVal UserTask As String)
  Try
     Dim param(1) As ParameterBuilder
     param(0) = New ParameterBuilder("@user_id", DbType.String)
     param(0).Value = UserID
     param(1) = New ParameterBuilder("@tk1_id", DbType.String)
     param(1).Value = UserTask
     Dim sql As String = "DELETE FROM pending WHERE user_id = '" & UserID & _
         "' AND tk1_id = '" & UserTask & "'"
     clsDbConnection.ExecuteNonQuery(clsDbConnection.ConnProcess & _
        "RES-TRACKING", CommandType.Text, sql, param)
  Catch ex As Exception
     MessageBox.Show(ex.ToString)
  End Try
End Sub

'******Class Module*********
Imports System
Imports System.Data
Imports System.Data.Common
Imports System.Data.OleDb

Public Class clsDbConnection
  ''' <summary>
  ''' Change the Provider from Line Below and Set the New Connection String
  ''' </summary>
  ''' <remarks></remarks>
  Private Const _Factory As GetFactory = GetFactory.OleDb

  ''' <summary>
  ''' Change the ConnectionString According to Database
  ''' </summary>
  ''' <remarks></remarks>
  '''
  Public Shared CONSTRING As String = "PROVIDER=SQLOLEDB;Password=+xxxxx+;User ID=sa; _
         Data Source=" & gsServerLocation & ";Initial Catalog=S2xDE"
  Public Shared ConnProcess As String = "PROVIDER=SQLOLEDB;Password=+xxxxx+;User ID=sa; _
         Data Source=" & gsServerLocation & ";Initial Catalog=" '& gsDatabase
  ''' <summary>
  ''' Gets all available Data Provider.
  ''' </summary>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Private Shared Function GetAllFactories() As DataTable
    Return DbProviderFactories.GetFactoryClasses
  End Function

  ''' <summary>
  ''' Set Data Provider.
  ''' </summary>
  ''' <param name="oGetFactory"></param>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Private Shared Function GetFactoryBySelection(ByVal oGetFactory As GetFactory) As String
    Select Case CType(oGetFactory, GetFactory)
    Case GetFactory.Odbc
      Return "System.Data.Odbc"
    Case GetFactory.OleDb
      Return "System.Data.OleDb"
    Case GetFactory.SqlClient
      Return "System.Data.SqlClient"
    End Select
    Return ""
  End Function

  ''' <summary>
  ''' Executes a Transact-SQL statement against the connection and returns the number of rows affected.
  ''' </summary>
  ''' <param name="connString">Set connection string. </param>
  ''' <param name="cmdType">Set a value indicating how the DbCommand.CommandText property is to be interpreted.</param>
  ''' <param name="cmdText">Set the Transact-SQL statement or stored procedure to execute at the data source.</param>
  ''' <param name="cmdParms">Set parameter collection.  </param>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Shared Function ExecuteNonQuery(ByVal connString As String, _
         ByVal cmdType As CommandType, ByVal cmdText As String, _
         ByVal cmdParms As ParameterBuilder()) As Integer
    Dim oProviderFactory As DbProviderFactory = DbProviderFactories.GetFactory(GetFactoryBySelection(_Factory))
    Dim Con As DbConnection = oProviderFactory.CreateConnection
    Dim cmd As DbCommand = Con.CreateCommand
    Dim trans As DbTransaction = Nothing
    Try
    Con.ConnectionString = connString
    cmd.Connection = Con
    cmd.CommandText = cmdText
    cmd.Parameters.Clear()
    cmd.CommandType = cmdType
    If Not (IsNothing(cmdParms)) Then
      Dim parmBuilder As ParameterBuilder
      For Each parmBuilder In cmdParms
        Dim Param As DbParameter = cmd.CreateParameter
        Param.ParameterName = CType(parmBuilder, ParameterBuilder).ParamName
        Param.SourceVersion = CType(parmBuilder, ParameterBuilder).SourceVersion
        Param.SourceColumn = CType(parmBuilder, ParameterBuilder).SourceColumn
        Param.SourceColumnNullMapping = CType(parmBuilder, ParameterBuilder).SourceColumnNullMapping
        Param.Size = CType(parmBuilder, ParameterBuilder).Size
        Param.Direction = CType(parmBuilder, ParameterBuilder).Direction
        Param.DbType = CType(parmBuilder, ParameterBuilder).DbType
        Param.Value = CType(parmBuilder, ParameterBuilder).Value
        cmd.Parameters.Add(Param)
      Next
    End If
    Con.Open()
    trans = Con.BeginTransaction
    cmd.Transaction = trans
    Dim val As Integer = cmd.ExecuteNonQuery()
    cmd.Parameters.Clear()
    trans.Commit()
    Return val
    Catch ex As DbException
      trans.Rollback()
      Throw New Exception("DB Exception " & ex.Message)
    Catch exx As Exception
      trans.Rollback()
      Throw New Exception("ExecuteNonQuery Function", exx)
    Finally
      Con.Close()
      Con.Dispose()
      cmd = Nothing
      cmdParms = Nothing
    End Try
  End Function

  ''' <summary>
  ''' ExecuteScalar
  ''' </summary>
  ''' <param name="connString"></param>
  ''' <param name="cmdType"></param>
  ''' <param name="cmdText"></param>
  ''' <param name="cmdParms"></param>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Shared Function ExecuteScalar(ByVal connString As String, _
      ByVal cmdType As CommandType, ByVal cmdText As String, _
      Optional ByVal cmdParms As ParameterBuilder() = Nothing) As Object
    Dim oProviderFactory As DbProviderFactory = DbProviderFactories.GetFactory(GetFactoryBySelection(_Factory))
    Dim Con As DbConnection = oProviderFactory.CreateConnection
    Dim cmd As DbCommand = Con.CreateCommand
    Con.ConnectionString = connString
    Try
      PrepareCommand(cmd, Con, cmdType, cmdText, cmdParms)
      Dim val As Object = cmd.ExecuteScalar()
      cmd.Parameters.Clear()
      Return val
    Catch ex As DbException
      Throw New Exception("SQL Exception ", ex)
    Catch exx As Exception
      Throw New Exception("ExeculateScalar", exx)
    Finally
      Con.Close()
      Con.Dispose()
      cmd = Nothing
    End Try
  End Function

  ''' <summary>
  ''' Executes Table
  ''' </summary>
  ''' <param name="connString">Set connection string. </param>
  ''' <param name="cmdType">Set a value indicating how the DbCommand.CommandText property is to be interpreted.</param>
  ''' <param name="cmdText">Set the Transact-SQL statement or stored procedure to execute at the data source.</param>
  ''' <param name="cmdParms">Set parameter collection.  </param>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Shared Function ExecuteTable(ByVal connString As String, ByVal cmdType As CommandType, _
         ByVal cmdText As String, Optional ByVal cmdParms As ParameterBuilder() = Nothing) As DataTable
    Dim oProviderFactory As DbProviderFactory = DbProviderFactories.GetFactory(GetFactoryBySelection(_Factory))
    Dim oDataAdapter As DbDataAdapter
    Dim Con As DbConnection = oProviderFactory.CreateConnection
    Dim cmd As DbCommand
    Try
      Con.ConnectionString = connString
      cmd = Con.CreateCommand
      PrepareCommand(cmd, Con, cmdType, cmdText, cmdParms)
      oDataAdapter = oProviderFactory.CreateDataAdapter
      Dim oDataTable As New DataTable
      oDataAdapter.SelectCommand = cmd
      oDataAdapter.Fill(oDataTable)
      cmd.Parameters.Clear()
      Return oDataTable
    Catch ex As DbException
      Throw New Exception("DB Exception ", ex)
    Catch exx As Exception
      Throw New Exception("ExecuteTable Exception :", exx)
    Finally
      Con.Close()
      Con.Dispose()
      cmd = Nothing
      oDataAdapter = Nothing
    End Try
  End Function

  ''' <summary>
  '''
  ''' </summary>
  ''' <param name="connString"></param>
  ''' <param name="cmdType"></param>
  ''' <param name="cmdText"></param>
  ''' <param name="cmdParms"></param>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Shared Function ExecuteDataSet(ByVal connString As String, ByVal cmdType As CommandType, _
         ByVal cmdText As String, Optional ByVal cmdParms As ParameterBuilder() = Nothing) As DataSet
    Dim oProviderFactory As DbProviderFactory = DbProviderFactories.GetFactory(GetFactoryBySelection(_Factory))
    Dim con As DbConnection = oProviderFactory.CreateConnection
    Dim oDataAdapter As DbDataAdapter
    Dim oDataSet As New DataSet
    Dim cmd As DbCommand
    Try
      con.ConnectionString = connString
      cmd = con.CreateCommand
      PrepareCommand(cmd, con, cmdType, cmdText, cmdParms)
      oDataAdapter = oProviderFactory.CreateDataAdapter
      oDataAdapter.SelectCommand = cmd
      oDataAdapter.Fill(oDataSet)
      cmd.Parameters.Clear()
      Return oDataSet
    Catch ex As DbException
      Throw New Exception("SQL Exception ", ex)
    Catch exx As Exception
      Throw New Exception("Execute DataSet", exx)
    Finally
      con.Close()
      con.Dispose()
      cmd = Nothing
      oDataAdapter = Nothing
    End Try
  End Function

  ''' <summary>
  '''
  ''' </summary>
  ''' <param name="cmd">A System.Data.Common.DbCommand that represents the active command</param>
  ''' <param name="conn">A System.Data.Common.DbConnection that represents the connection to instance.</param>
  ''' <param name="cmdType">Set a value indicating how the DbCommand.CommandText property is to be interpreted.</param>
  ''' <param name="cmdText">Set the Transact-SQL statement or stored procedure to execute at the data source.</param>
  ''' <param name="cmdParms">Set parameter collection.</param>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Shared Function PrepareCommand(ByRef cmd As DbCommand, ByRef conn As DbConnection, _
         ByRef cmdType As CommandType, ByRef cmdText As String, _
         ByRef cmdParms As ParameterBuilder()) As Boolean
    If Not conn.State = ConnectionState.Open Then
      conn.Open()
    End If
    Try
      cmd.Connection = conn
      cmd.CommandText = cmdText
      cmd.Parameters.Clear()
      cmd.CommandType = cmdType
      If Not (IsNothing(cmdParms)) Then
        Dim parm As DbParameter = Nothing
        Dim parmBuilder As ParameterBuilder
        For Each parmBuilder In cmdParms
          Dim Param As DbParameter = cmd.CreateParameter
          Param.ParameterName = CType(parmBuilder, ParameterBuilder).ParamName
          Param.SourceVersion = CType(parmBuilder, ParameterBuilder).SourceVersion
          Param.SourceColumn = CType(parmBuilder, ParameterBuilder).SourceColumn
          Param.SourceColumnNullMapping = CType(parmBuilder, ParameterBuilder).SourceColumnNullMapping
          Param.Size = CType(parmBuilder, ParameterBuilder).Size
          Param.Direction = CType(parmBuilder, ParameterBuilder).Direction
          Param.DbType = CType(parmBuilder, ParameterBuilder).DbType
          Param.Value = CType(parmBuilder, ParameterBuilder).Value
          cmd.Parameters.Add(Param)
        Next
      End If
    Catch ex As DbException
      Throw New Exception("DB Exception ", ex)
    Catch exx As Exception
      Throw New Exception("PrepareCommand : ", exx)
    End Try
  End Function

  ''' <summary>
  '''
  ''' </summary>
  ''' <param name="connString"></param>
  ''' <param name="cmdType"></param>
  ''' <param name="cmdText"></param>
  ''' <param name="cmdParms"></param>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Shared Function ExecuteRow(ByVal connString As String, ByVal cmdType As CommandType, _
     ByVal cmdText As String, Optional ByVal cmdParms As ParameterBuilder() = Nothing) As DataRow
    Dim oProviderFactory As DbProviderFactory = DbProviderFactories.GetFactory(GetFactoryBySelection(_Factory))
    Dim Con As DbConnection = oProviderFactory.CreateConnection
    Con.ConnectionString = connString
    Dim cmd As DbCommand = Con.CreateCommand
    Dim oDataAdapter As DbDataAdapter = oProviderFactory.CreateDataAdapter
    Dim oDataRow As DataRow = Nothing
    Dim oDataTable As New DataTable
    Try
      PrepareCommand(cmd, Con, cmdType, cmdText, cmdParms)
      oDataAdapter.SelectCommand = cmd
      oDataAdapter.Fill(oDataTable)
      cmd.Parameters.Clear()
      If oDataTable.Rows.Count = 0 Then
        Return Nothing
      Else
        Dim oRow As DataRow = oDataTable.Rows(0)
        Return oRow
      End If
    Catch ex As DbException
      Throw New Exception("DB Exception ", ex)
    Catch exx As Exception
      Throw New Exception("ExecuteRow", exx)
    Finally
      Con.Close()
      Con.Dispose()
      oDataTable = Nothing
      cmd = Nothing
      oDataAdapter = Nothing
    End Try
  End Function

  ''' <summary>
  ''' FillSchema
  ''' </summary>
  ''' <param name="connString"></param>
  ''' <param name="cmdText"></param>
  ''' <param name="strTableName"></param>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Shared Function FillSchema(ByVal connString As String, ByVal cmdText As String, _
      ByVal strTableName As String) As DataTable
    Dim oProviderFactory As DbProviderFactory = DbProviderFactories.GetFactory(GetFactoryBySelection(_Factory))
    Dim conn As DbConnection = oProviderFactory.CreateConnection
    conn.ConnectionString = connString
    Dim oDataAdapter As DbDataAdapter = oProviderFactory.CreateDataAdapter
    Dim oCmdBuilder As DbCommandBuilder = oProviderFactory.CreateCommandBuilder
    Dim oDataTable As New DataTable
    Try
      If Not conn.State = ConnectionState.Open Then
        conn.Open()
      End If
      oDataAdapter.SelectCommand.CommandType = CommandType.Text
      oDataAdapter.SelectCommand.CommandText = cmdText
      oCmdBuilder.DataAdapter = oDataAdapter
      oDataAdapter.FillSchema(oDataTable, SchemaType.Source)
      oDataTable.TableName = strTableName
      Return oDataTable
    Catch exx As DbException
      Throw New Exception("DB Exception ", exx)
      Catch ex As Exception
      Throw New Exception("FillSchema", ex)
    End Try
  End Function

  ''' <summary>
  ''' ExcuteAdapter
  ''' </summary>
  ''' <param name="connString"></param>
  ''' <param name="oTable"></param>
  ''' <param name="cmdText"></param>
  ''' <param name="lngMaxID"></param>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Shared Function ExcuteAdapter(ByVal connString As String, ByVal oTable As DataTable, _
       ByVal cmdText As String, Optional ByRef lngMaxID As Long = 0) As Boolean
    Dim oProviderFactory As DbProviderFactory = DbProviderFactories.GetFactory(GetFactoryBySelection(_Factory))
    Dim conn As DbConnection = oProviderFactory.CreateConnection
    conn.ConnectionString = connString
    Dim oDataAdapter As DbDataAdapter = oProviderFactory.CreateDataAdapter
    Dim oCmdBuilder As DbCommandBuilder = oProviderFactory.CreateCommandBuilder
    Dim oSqlCmd As DbCommand = oProviderFactory.CreateCommand
    Dim trans As DbTransaction = Nothing
    Try
      If Not conn.State = ConnectionState.Open Then
        conn.Open()
      End If
      trans = conn.BeginTransaction
      oSqlCmd.Transaction = trans
      oSqlCmd.Connection = conn
      oSqlCmd.CommandText = cmdText
      oSqlCmd.CommandType = CommandType.Text
      oDataAdapter.SelectCommand = oSqlCmd
      oCmdBuilder.DataAdapter = oDataAdapter
      oCmdBuilder.GetUpdateCommand()
      oCmdBuilder.GetInsertCommand()
      oCmdBuilder.GetDeleteCommand()
      oDataAdapter.Update(oTable)
      trans.Commit()
    Catch ex As DbException
      trans.Rollback()
      Throw New Exception("DB Exception ", ex)
    Catch exx As Exception
      trans.Rollback()
      Throw New Exception("ExeculateAdapter", exx)
    Finally
      If conn.State = ConnectionState.Open Then conn.Close()
        conn.Dispose()
        oSqlCmd = Nothing
        oDataAdapter = Nothing
      oCmdBuilder = Nothing
    End Try
  End Function

  ''' <summary>
  '''
  ''' </summary>
  ''' <param name="TableName"></param>
  ''' <param name="ColumnName"></param>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Shared Function GetColumnMaxValue(ByVal TableName As String, ByVal ColumnName As String) As Integer
    Try
      Dim SQL As String = "SELECT MAX(" & ColumnName & ")" & "AS " & ColumnName & " FROM " & TableName
      Dim oDataRow As DataRow = ExecuteRow(CONSTRING, CommandType.Text, SQL)
      If IsDBNull(ColumnName) = False Then
        Return Convert.ToInt32(oDataRow(ColumnName))
      Else
        Return 0
      End If
    Catch ex As DbException
      Throw New Exception("DB Exception ", ex)
    Catch exx As Exception
      Throw New Exception("GetColumnMaxValue", exx)
    Finally
    End Try
  End Function

  ''' <summary>
  '''
  ''' </summary>
  ''' <param name="TableName"></param>
  ''' <param name="ColumnName"></param>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Shared Function GetColumnCount(ByVal TableName As String, ByVal ColumnName As String) As Integer
    Try
    Dim SQL As String = "SELECT Count(" & ColumnName & ")" & "AS " & ColumnName & " FROM " & TableName
    Dim oDataRow As DataRow = ExecuteRow(CONSTRING, CommandType.Text, SQL)
    If IsDBNull(ColumnName) = False Then
      Return Convert.ToInt32(oDataRow(ColumnName))
    Else
      Return 0
    End If
    Catch ex As DbException
      Throw New Exception("DB Exception ", ex)
    Catch exx As Exception
      Throw New Exception("GetColumnCount", exx)
    Finally
    End Try
  End Function
End Class

Public Class ParameterBuilder
  Private _ParamName As String
  Private _Value As Object
  Private _DbType As DbType = Data.DbType.String
  Private _Direction As ParameterDirection = ParameterDirection.Input
  Private _Size As Integer = 0
  Private _SourceColumn As String = String.Empty
  Private _SourceVersion As DataRowVersion = DataRowVersion.Current
  Private _SourceColumnNullMapping As Boolean = False

  ''' <summary>
  ''' Initializes a new instance of the ParameterBuilder class.
  ''' </summary>
  ''' <remarks></remarks>
  Public Sub New()

  End Sub

  ''' <summary>
  ''' Initializes a new instance of the ParameterBuilder class.
  ''' </summary>
  ''' <param name="ParameterName">Sets the name of the ParameterName.</param>
  ''' <param name="dbType">Sets the DbType of the parameter.</param>
  ''' <param name="Size">Sets the maximum size, in bytes, of the data within the column.</param>
  ''' <param name="Direction">Sets a value that indicates whether the parameter is input-only,
  ''' output-only, bidirectional, or a stored procedure return value parameter.</param>
  ''' <param name="IsNullable">Sets a value that indicates whether the parameter accepts null values.</param>
  ''' <param name="SourceColumn">Sets the name of the source column mapped to the DataSet and
  ''' used for loading or returning the Value.</param>
  ''' <param name="SourceVersion">Sets the DataRowVersion to use when you load Value.</param>
  ''' <param name="Value">Sets the value of the parameter.</param>
  ''' <remarks></remarks>
  Public Sub New(ByVal ParameterName As String, ByVal dbType As DbType, ByVal Size As Integer, _
      ByVal Direction As ParameterDirection, ByVal IsNullable As Boolean, _
      ByVal SourceColumn As String, ByVal SourceVersion As DataRowVersion, ByVal Value As Object)
    Me._ParamName = ParameterName
    Me._DbType = dbType
    Me._Size = Size
    Me._Direction = Direction
    Me._SourceColumnNullMapping = IsNullable
    Me._SourceColumn = SourceColumn
    Me._SourceVersion = SourceVersion
    Me._Value = Value
  End Sub

  ''' <summary>
  ''' Initializes a new instance of the ParameterBuilder class.
  ''' </summary>
  ''' <param name="ParameterName">Sets the name of the ParameterName.</param>
  ''' <param name="dbType">Sets the DbType of the parameter.</param>
  ''' <remarks></remarks>
  Public Sub New(ByVal ParameterName As String, ByVal dbType As DbType)
    Me._ParamName = ParameterName
    Me._DbType = dbType
  End Sub

  ''' <summary>
  ''' Initializes a new instance of the ParameterBuilder class.
  ''' </summary>
  ''' <param name="ParameterName">Sets the name of the ParameterName.</param>
  ''' <param name="Value">Sets the value of the parameter.</param>
  ''' <remarks></remarks>
  Public Sub New(ByVal ParameterName As String, ByVal Value As Object)
    Me._ParamName = ParameterName
    Me._Value = Value
  End Sub

  ''' <summary>
  ''' Initializes a new instance of the ParameterBuilder class.
  ''' </summary>
  ''' <param name="ParameterName">Sets the name of the ParameterName.</param>
  ''' <param name="dbType">Sets the DbType of the parameter.</param>
  ''' <param name="Size">Sets the maximum size, in bytes, of the data within the column.</param>
  ''' <remarks></remarks>
  Public Sub New(ByVal ParameterName As String, ByVal dbType As DbType, ByVal Size As Integer)
    Me._ParamName = ParameterName
    Me._DbType = dbType
    Me._Size = Size
  End Sub

  ''' <summary>
  ''' Initializes a new instance of the ParameterBuilder class.
  ''' </summary>
  ''' <param name="ParameterName">Sets the name of the ParameterName.</param>
  ''' <param name="dbType">Sets the DbType of the parameter.</param>
  ''' <param name="Size">Sets the maximum size, in bytes, of the data within the column.</param>
  ''' <param name="SourceColumn">Sets the name of the source column mapped to the DataSet and
  ''' used for loading or returning the Value.</param>
  ''' <remarks></remarks>
  Public Sub New(ByVal ParameterName As String, ByVal dbType As DbType, _
      ByVal Size As Integer, ByVal SourceColumn As String)
    Me._ParamName = ParameterName
    Me._DbType = dbType
    Me._Size = Size
    Me._SourceColumn = SourceColumn
  End Sub

  ''' <summary>
  ''' Gets the name of the ParameterName.
  ''' </summary>
  ''' <value></value>
  ''' <returns>String</returns>
  ''' <remarks></remarks>
  Public Property ParamName() As String
    Get
    Return Me._ParamName
    End Get
    Set(ByVal value As String)
    Me._ParamName = value
    End Set
  End Property

  ''' <summary>
  ''' Gets the value of the parameter.
  ''' </summary>
  ''' <value></value>
  ''' <returns>Object</returns>
  ''' <remarks></remarks>
  Public Property Value() As Object
    Get
    Return _Value
    End Get
    Set(ByVal value As Object)
    _Value = value
    End Set
  End Property

  ''' <summary>
  ''' Gets the DbType of the parameter.
  ''' </summary>
  ''' <value></value>
  ''' <returns>DbType</returns>
  ''' <remarks></remarks>
  Public Property DbType() As DbType
    Get
    Return _DbType
    End Get
    Set(ByVal value As DbType)
    _DbType = value
    End Set
  End Property

  ''' <summary>
  ''' Gets a value that indicates whether the parameter is input-only, output-only,
  ''' bidirectional, or a stored procedure return value parameter.
  ''' </summary>
  ''' <value></value>
  ''' <returns>ParameterDirection</returns>
  ''' <remarks></remarks>
  Public Property Direction() As ParameterDirection
    Get
    Return _Direction
    End Get
    Set(ByVal value As ParameterDirection)
    _Direction = value
    End Set
  End Property

  ''' <summary>
  ''' Gets the maximum size, in bytes, of the data within the column.
  ''' </summary>
  ''' <value></value>
  ''' <returns>Integer</returns>
  ''' <remarks></remarks>
  Public Property Size() As Integer
    Get
    Return Me._Size
    End Get
    Set(ByVal value As Integer)
    Me._Size = value
    End Set
  End Property

  ''' <summary>
  ''' Gets the name of the source column mapped to the DataSet and used for
  ''' loading or returning the Value.
  ''' </summary>
  ''' <value></value>
  ''' <returns>String</returns>
  ''' <remarks></remarks>
  Public Property SourceColumn() As String
    Get
    Return _SourceColumn
    End Get
    Set(ByVal value As String)
    _SourceColumn = value
    End Set
  End Property

  ''' <summary>
  ''' Sets the DataRowVersion to use when you load Value.
  ''' </summary>
  ''' <value></value>
  ''' <returns>DataRowVersion</returns>
  ''' <remarks></remarks>
  Public Property SourceVersion() As DataRowVersion
    Get
    Return _SourceVersion
    End Get
    Set(ByVal value As DataRowVersion)
    _SourceVersion = value
    End Set
  End Property

  ''' <summary>
  ''' Gets a value that indicates whether the parameter accepts null values.
  ''' </summary>
  ''' <value></value>
  ''' <returns>Boolean</returns>
  ''' <remarks></remarks>
  Public Property SourceColumnNullMapping() As Boolean
    Get
    Return _SourceColumnNullMapping
    End Get
    Set(ByVal value As Boolean)
    _SourceColumnNullMapping = value
    End Set
  End Property
End Class

Public Enum GetFactory
  Odbc = 1
  OleDb = 2
  SqlClient = 3
End Enum

FREE PDF BOOK DOWNLOAD