Dim db As DAO.Database, rst As DAO.Recordset, equipID as Integer
'first, get the Primary Key of the record you are looking for
curEquip = DLookup("[equipID]", "tblEquip", "[EquipPiece] = '" & _
Forms!frmYourForm!txtEuipPiece & "'")
Set db = CurrentDb
Set rst = db.OpenRecordset("tblEquip")
With rst
' Set current index.
rst.Index = "equipID" 'Primary Key field from table
' Locate record.
rst.Seek "=", equipID 'move to the record in the tblEquip
.Edit
'Reset the location field for your desired record
!Location = Forms!frmYourForm!Location
.Update
End With
Set rst = Nothing
Set db = Nothing