dim Cupom as long
dim CodCancel as integer
If rsMovimento.State <> adStateClosed Then
rsMovimento.Close
End If
rsMovimento.Open "Select Cupom as cup, Sequencia as seq From Movimento Where Cupom = '" &
Cupom & "' and Sequencia = '" & CodCancel & "'", Conn, adOpenKeyset, adLockOptimistic
cupom = rsmovimento("cup")
codcancel = rsmovimento("seq")