so mais uma coisa como faço pra todo ficar "Sim"
eu fez assim

dica do "Ghost jlp"
        If Rs_New.State = 1 Then Rs_New.Close
        Rs_New.CursorLocation = adUseClient
        Rs_New.Open "select * from envelope where bd_new_imp= 'Não' and bd_new_cod order by bd_new_imp", Banco, adOpenDynamic, adLockOptimistic
        Label6.Caption = Rs_New.RecordCount
   
    Key2 = Rs_New.RecordCount
            
    For i = 1 To Key2
        Rs_New.Fields("bd_new_imp") = "Sim"
        Rs_New.Update
    Next i

 

Para mudar o conteúdo de "bd_new_imp" para sim prefiro fazer por SQL:

 

Dim Cnn as Adodb.Connection

 

Set Cnn = new Adodb.Connection

 

Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:meumdb.mdb"

 

Cnn.Execute "UPDATE TABELA SET bd_new_imp = 'Sim'"