[Resolvido]Atualizar form continuo

Dim DB1 As Database, rs1 As Recordset
Dim strsql as string

strsql = "SELECT quant FROM ConsignacaoDetalhes WHERE LND = " & Me.LN
Set DB1 = CurrentDb()
Set rs1 = DB1.OpenRecordset(strsql)
Do while not rs1.eof
    rs1.Edit
    rs1("quant") = Forms![consignacaoalterar]![DetalhesArtigosAlterar]![QC]
    rs1.Update
    rs1.movenext
loop
rs1.Close
Set rs1 = Nothing
Set DB1 = Nothing

Private Sub Comando30_Click()
Dim rsClone As DAO.Recordset
Set rsClone = Me.RecordsetClone
Do While Not rsClone.EOF
    rsClone.Edit
        rsClone!quant = rsClone!qc
    rsClone.Update
    rsClone.MoveNext
Loop
rsClone.Close
Set rsClone = Nothing
End Sub