Sub CreateTable(strFilePath, strTableName)
Dim dbeng 'As DAO.Dbengine
Dim db 'As Database
Dim td 'As TableDef
	Set dbeng = CreateObject("DAO.DBEngine.36")
	Set db = dbeng.OpenDatabase(strFilePath, False, True)
	Set td = db.CreateTableDef(strTableName)
	db.TableDefs.Append td
	db.Close
	Set td = Nothing
	Set db = Nothing
	Set dbeng = Nothing
End Sub