Module1.vb
-----------------------------
Imports System.Data.OleDb
Module Module1
Public con As New OleDbConnection
Public Sub dbase_conn()
If con.State = 1 Then con.Close()
Dim mypath As String
'mypath = CurDir() & "|DataDirectory|\users.accdb"
mypath = "|DataDirectory|\users.accdb"
'con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & mypath & "';persist security Info=false.")
con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & mypath & "';persist security Info=false;")
con.Open()
End Sub
End Module