Hi, thanks for your suggesion, here is what I changed my code to:
Dim strfrm, strWhere, strpono, inputBoxRes As String
Dim intpono As Integer
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("TblOrder", dbOpenDynaset, dbSeeChanges)
strpono = InputBox("Please enter the purchase order...