Dim dbeng 'As DAO.DBEngine
Dim db 'As Database
Dim rs 'As Recordset
Dim intField 'As Integer
Dim strData 'As String
Const dbOpenDynaset = 2 'DAO.RecordsetTypeEnum
Const dbReadOnly = 4 'DAO.RecordsetOptionEnum
Const dbOpenSnapshot = 4 'DAO.RecordsetTypeEnum
Const dbOptimistic = 3 'DAO.LockTypeEnum
	Set dbeng = CreateObject("DAO.DBEngine.36")
	Set db = dbeng.OpenDatabase("MDB_FILE_NAME_HERE", False, False)
	Set rs = db.OpenRecordset("TABLE_OR_QUERY_NAME_HERE", dbOpenDynaset, , dbOptimistic)
	rs.FindFirst "FieldName = Value"
	If rs.NoMatch Then
		rs.AddNew
		rs.Fields("FieldName") = "Value"
	Else
		rs.Edit
	End If
	'More data manipulation here
	rs.Update