Sub CreateField(strFilePath, strTableName, strFieldName, intFieldType, intSize)
'Size argument is required but is ignored where it isn't applicable
Dim dbeng 'As DAO.Dbengine
Dim db 'As Database
Dim td 'As TableDef
'Below constants are not used here but should be passed in for intFieldType
Const dbBoolean = 1
Const dbByte = 2
Const dbInteger = 3
Const dbLong = 4
Const dbSingle = 6
Const dbDouble = 7
Const dbDate = 8
Const dbBinary = 9
Const dbText = 10
Const dbMemo = 12
Const dbVarBinary = 17
Const dbChar = 18
Const dbNumeric = 19
Const dbDecimal = 20
Const dbFloat = 21
Const dbTime = 22
Const dbTimeStamp = 23
	Set dbeng = CreateObject("DAO.DBEngine.36")
	Set db = dbeng.OpenDatabase(strFilePath, False, False)
	Set td = db.TableDefs(strTableName)
	td.Fields.Append td.CreateField(strFieldName, intFieldType, intSize)
	db.TableDefs.Append td
	db.Close
End Sub