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
Do more with
Premium Content
You need an Expert Office subscription to comment.Start Free Trial