Imports System.Data.OleDb
Public Class ConClass
    Dim Cn As New OleDbConnection

    Public Function Create(ByVal path As String) As OleDbConnection
        Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & path & "\db.mdb;"
        If Cn.State <> 0 Then Cn.Close()
        Cn.Open()
        Return Cn
    End Function
    Public Function Close() As OleDbConnection
        If Cn.State <> 0 Then Cn.Close()
    End Function
End Class