Tenho o seguinte código:

Uso Ado VB 6.0 e acess 2000

 

Private Sub ComProd_LostFocus()

'On Error GoTo ErrEdit

    rst.Filter = "produto Like '" + ComProd.Text + "'"
    txtfisico_ant = rst.Fields![saldo]
    txtfisico_Entrada.SetFocus
    Call conecta_obj
   
Dim w_campoaux
On Error GoTo ErrEdit
w_campoaux = rst.Fields(7)
rst.Fields(7) = "1111111"
rst.Fields(7) = w_campoaux
   
    w_con.BeginTrans 'AVISA QUE O REGISTRO ESTA SENDO EDITADO
    rst.Resync adAffectCurrent 'AVISA QUE O REGISTRO ESTA SENDO EDITADO
    rst.Move 0
ErrEdit:
    Select Case Err.Number
        Case 0
        Case -2147217885
            MsgBox "Este Produto não pode ser editado, pois foi excluído por outro usuário!", vbExclamation
            'w_tbl.CancelUpdate
            w_con.RollbackTrans
            w_con.CancelUpdate
            w_con.Resync adAffectCurrent
        Case -2147467259
            MsgBox "Este Produto não pode ser editado, pois está sendo usado por outro usuário!", vbExclamation
            'w_tbl.CancelUpdate
            w_con.RollbackTrans
            w_con.Cancel
        Case -2147217864
            MsgBox "Este Produto foi excluído ou alterado recentemente por outro usuário! Atualizando, aguarde...", vbExclamation
            'bot_cancelar_Click
            'bot_atualizar_Click
        Case Else
            MsgBox (Err.Number & Chr(13) & Err.Description)
            'w_tbl.CancelUpdate
            w_con.RollbackTrans
            w_con.Cancel
           
    End Select
Se eu acessar o um registro e um outro usuario acessa o mesmo registro ele mostra mensagem:

"Este Produto não pode ser editado, pois está sendo usado por outro usuário"

até ai tudo bem

Só que quando ele da a mensagem e vou tentar trocar de produto ele da uma mensagem:

"NÃO FOI POSSIVEL ATUALIZAR;ATUALMENTE BLOQUEADO PELO USUÁRIO 'ADIM' NO COMPUTADOR 'xxxxxxx'. Se eu apertar OK ele fecha o programa.

Como posso fazer para que eu possa escolher ou produto e ele não de esta mensagem.