Imports System.Data.SqlClient

Public Class clsDB
    Private database_ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\mydb.mdb;"
    Private database_Connection As New SqlConnection()
    Private database_Sql_Statement As String = ""
    Public Reader As SqlDataReader

    Public Sub OpenDatabaseConnection()
        Try
            database_Connection.ConnectionString = database_ConnectionString
            database_Connection.Open()
        Catch ex As Exception
            Addlvitems("DataBase Connection Error: " + ex.Message.ToString(), "System")
        End Try
    End Sub
    Public Sub CloseDatabaseConnection()
        Try
            Reader.Close()
            If database_Connection.State <> Data.ConnectionState.Closed Then
                Reader.Close()
                database_Connection.Close()
            End If
        Catch ex As Exception
            Addlvitems("DataBase Close Error: " + ex.Message.ToString(), "System")
        End Try
    End Sub

    Public Function RunSqlStatement(ByVal SQL_Statement As String, ByVal where As String) As String
        RunSqlStatement = ""
        Try
            Dim cmd As New System.Data.SqlClient.SqlCommand(SQL_Statement, database_Connection)
            Reader = cmd.ExecuteReader
            If Reader.HasRows Then
                Do While Reader.Read()
                    RunSqlStatement = Reader.Item(where)
                Loop
            Else
                RunSqlStatement = " "
            End If

            Return RunSqlStatement
        Catch ex As Exception
            Addlvitems("Sql Error: " + ex.Message.ToString(), "System")
        End Try
    End Function

End Class