Public Sub Main()
Dim CON As New ADODB.Connection
Dim PATH

PATH = App.PATH & "\PutanjaIImeBaze.MDB"
CON.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & PATH & ";Persist Security Info=False"
CON.Open
end sub