Imports System.Data


Public Class clsDB
    Private database_ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\smartftp.mdb;"
    Private database_Connection As New System.Data.OleDb.OleDbConnection()
    Private database_Reader As System.Data.OleDb.OleDbDataReader


    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
            database_Reader.Close()
            If database_Connection.State <> Data.ConnectionState.Closed Then
                database_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.OleDb.OleDbCommand(SQL_Statement, database_Connection)
            database_Reader = cmd.ExecuteReader
            If database_Reader.HasRows Then
                Do While database_Reader.Read()
                    RunSqlStatement = database_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