How to create Access database from xml on server

Imports Microsoft.Office.Interop.Access
Module modAccess
    Private Const acStructureAndData = 2

    Public Function makeMDB(ByVal tempFile As String, ByVal xmlFile As String) As Boolean
        Dim appAccess = New Application
        Try
            appAccess.NewCurrentDatabase(tempFile, AcNewDatabaseFormat.acNewDatabaseFormatAccess2007)
            appAccess.ImportXML(DataSource:=xmlFile, ImportOptions:=acStructureAndData)
        Catch Excep As System.Runtime.InteropServices.COMException
            Return False
        Finally
            appAccess.CloseCurrentDatabase()
            appAccess = Nothing
        End Try
        Return True
    End Function
End Module

Select allOpen in new window