Imports System
Imports System.Data
Imports System.Data.Odbc
Imports System.IO
Imports MySql.Data.MySqlClient

Namespace DataAccessLayer
    Public Class OleDB
        Private x As OdbcDataReader
        Private mvarCommandObject As MySqlCommand
        Private mvarConnectionObject As MySqlConnection
        Private mvarSQLString As String
        Private mvarConnectionString As String
        Private mvarRecordsAffected As Integer
        Private mvarCommandTimeOut As Integer = 15

        Public Property ConnectionString() As String
            Get
                ConnectionString = mvarConnectionString
            End Get
            Set(ByVal Value As String)
                mvarConnectionString = Value
            End Set
        End Property

        Public Property SQLString() As String
            Get
                SQLString = mvarSQLString
            End Get
            Set(ByVal Value As String)
                mvarSQLString = Value
            End Set
        End Property

        Public Property ConnectionObject() As MySqlConnection
            Get
                ConnectionObject = mvarConnectionObject
            End Get
            Set(ByVal Value As MySqlConnection)
                mvarConnectionObject = Value
            End Set
        End Property

        Public Property CommandObject() As MySqlCommand
            Get
                CommandObject = mvarCommandObject
            End Get
            Set(ByVal Value As MySqlCommand)
                mvarCommandObject = Value
            End Set
        End Property

        Public Property RecordsAffected() As Integer
            Get
                RecordsAffected = mvarRecordsAffected
            End Get
            Set(ByVal Value As Integer)
                mvarRecordsAffected = Value
            End Set
        End Property

        Public Property CommandTimeOut() As Integer
            Get
                CommandTimeOut = mvarCommandTimeOut
            End Get
            Set(ByVal Value As Integer)
                mvarCommandTimeOut = Value
            End Set
        End Property

        Public Function Execute(ByVal strs As String) As String
            mvarSQLString = strs
            mvarConnectionString = "Data Source=localhost;Database=scms;User ID=root;Password=0000000000;"
            mvarConnectionObject = New MySqlConnection(mvarConnectionString)
            mvarCommandObject = New MySqlCommand(strs, mvarConnectionObject)
            mvarConnectionObject.Open()
            'mvarCommandObject.CommandType = CommandType.Text
            'mvarCommandObject.CommandTimeout = 10
            'mvarCommandObject.CommandText = mvarSQLString
            'mvarCommandObject.Connection = mvarConnectionObject
            Dim Xstr As String
            Xstr = strs.Substring(0, 6).ToUpper
            Try
                If Xstr <> "SELECT" Then
                    mvarRecordsAffected = mvarCommandObject.ExecuteNonQuery
                End If
                Return "OK"
            Catch Ex As Exception
                mvarConnectionObject.Close()
                mvarCommandObject = Nothing
                mvarConnectionObject = Nothing
                mvarSQLString = Nothing
                Return Ex.ToString
            End Try
        End Function
        Public Sub close()
            mvarConnectionObject.Close()
            mvarCommandObject = Nothing
            mvarConnectionObject = Nothing
            mvarSQLString = Nothing
        End Sub
    End Class
End Namespace
אופן שימוש
StrSql = "Select * from articals order by catid asc"
        If Database.Execute(StrSql) = "OK" Then

            If _Style = StyleType.Titles Then
                rs = Database.CommandObject.ExecuteReader()
                Do While (rs.Read())
                    ArtBox.Text += "<a href='./Art.aspx?id=" & rs("id") & "' ><span class='Art_titls'>" & rs("a_title") & "</span></a><br />"
                Loop
                rs.Close()
            End If
            Database.close()
        End If ' End database