Function NovaBaza()
Dim strDB As String
Dim DrugaDB As Access.Application

strDB = "D:\Baze\Skladiste_2014_be.mdb"

Set DrugaDB = _
CreateObject("Access.Application")

DrugaDB.NewCurrentDatabase strDB

End Function