run time errors [VB6]

[kkaiten]

Eu tenho um programa que faz inventariação de material, tem uma listview com varias colunas em que a primeira coluna é o campo chave, tal como no access esse campo não pode ser igual em dois registos.
Quando executo o programa e se tento por 2 registos com o mesmo campo chave ele dá-me um erro de run-time e fecha a aplicação mas disseram-me que havia maneira de em vez da aplicação fechar e o utilizador não fazer ideia do que fez, aparecer uma msgbox com o aviso de "o campo com chave primária não pode ser duplicado" e a aplicação continuar a correr sem ter que fechar bruscamente.

 

[Armadillo]

Private Sub Form_Load()
on local error goto Erro

'o teu codigo
exit sub



Erro:
Select Case Err.Number
    Case <o n.º do erro>:
        msgbox "dfd"
    Case Else:
        msgbox "else error"
End Select

End Sub

 

[kkaiten]

Dá-me outro error
"Compile error:
Function call on left hand size of assignment must return Variant or Object"

 

[Armadillo]

posta o codigo e a linha onde o dá o erro, pf