Public Sub Main() #If Win16 Then DBEngine.IniPath = "" #Else 'DBEngine.SystemDB = App.Path & "\sys.mdw" #End If Set wks = CreateWorkspace("ImePrijekta", "Admin", "") Set Db = wks.OpenDatabase(App.Path & "\ImeBaze.mdb") End Sub