You may want to open your recordset with adOpenKeyset instead.
VB Code:
  1. rst.Open "Semana", cn, adOpenKeyset, adLockOptimistic, adCmdTable