Visual Basic 6.0 : Auto Connection to Database (MS Access 2007 Enterprise)

Sample Codes Here

(Module)

Public con As New ADODB.Connection
Public rs As New ADODB.Recordset


Sub main()
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;D­ata Source=" & App.Path & "\SampleDB.mdb;Persist Security Info=False"
con.CursorLocation = adUseClient
con.Open
frmSample.Show

Download : Click Here

Watch video below