Object reference not set to an instance of an object

[TyraelMX]

Pues esta es una de las posibles soluciones que he encontrado al estarle moviendo a mis lineas, por ahi si encuentro otras que lo hagan mas rapido y sencillo las expondre de nuevo. Aun tengo un par de lineas que depurar.

Código vb:

Imports System.Data
 
Public Class Connect_DataBase
 
    Public driver As String
    Public database As System.Data.Odbc.OdbcConnection
    Public status_message As String
    Public table_status_message As String
 
    Public Sub New(ByVal sPath As String)
        driver = "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=" & sPath & ";"
        'Using database As New System.Data.Odbc.OdbcConnection(driver)
        'Si no ocupamos el Using, podemos conservar el objeto hasta que se destruya la clase. Hasta el momento ha sido la solución efectiva que he encontrado al estarle moviendo a mis lineas, espero poder seguir simplificandolas hasta hacer de la clase mas rapida y efectiva
        database = New System.Data.Odbc.OdbcConnection(driver)
        Try
            Open()
            Status = "Connected"
        Catch ex As Exception
            MessageBox.Show("DataBase Not Found" & vbCrLf & "Select Another Path")
            Status = "Error"
        End Try
        'End Using
    End Sub
 
    Public Property Status() As String
        Get
            Return status_message
        End Get
        Set(ByVal value As String)
            status_message = value
        End Set
    End Property
 
    Public ReadOnly Property Conn() As System.Data.Odbc.OdbcConnection
        Get
            Return database
        End Get
    End Property
 
    Public Sub Open()
        database.Open()
    End Sub
 
    Public Sub Close()
        database.Close()
    End Sub
End Class