Connect Access Databse Through ADODB

Public cnAccount As New adodb.Connection
Public Sub OpenCn()
Set cnAccount = New adodb.Connection
cnAccount.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Data.mdb;Persist
Security Info=False"
End Sub
Write this function in module and Call MDI Form Load