rs.Open " update TblName set FldNum=" & text1.Text & " where ID_FldName=" & Text2.Text , db, adOpenDynamic, adLockOptimistic