Function makedb()
   
   Dim accessApp As Access.Application
   Set accessApp = New Access.Application
   
   strDBPath = "D:\tblImport2022.mdb"
   strDb = Dir(strDBPath)

   If Len(strDb) <> 0 Then
    MsgBox "Baza postoji"
    Else
    Rem MsgBox "Baza ne postoji"
    accessApp.DBEngine.CreateDatabase "D:\tblImport2022.mdb", DB_LANG_GENERAL
    RunBackup
   accessApp.Quit
   Set accessApp = Nothing
End If
  
End Function

Public Function RunBackup()

 Rem   DB_CopyTo = "D:\backup_" & Format(Now, "yymmdd_hhnn") & ".mdb"
    DB_CopyTo = "D:\tblImport2022.mdb"
   Rem  DBEngine.CreateDatabase DB_CopyTo, dbLangGeneral
    
    With CurrentDb
        For Each t In .TableDefs
            Select Case True
            Case Left(t.Name, 1) = "~"
            Case Left(t.Name, 4) = "msys"
            Case Else
                .Execute "select * into [" & DB_CopyTo & "].[" & t.Name & "] from [" & t.Name & "]"
            End Select
        Next
    End With
    
End Function