Fejl når ingen varenummer findes - Makro

Jeg har en makro:

Private Sub cbVarenummer_Change()
lbVarenavn.Caption = cbVarenummer.Column(1)
End Sub

Den finder (tror jeg ;-) ) lbVarenavn når jeg skriver et Varenummer. Problemet er når jeg skriver et varenummer, der ikke findes opstår der en fejl om at lbVarenavn ikke kan findes (eller noget i den stil).

Jeg vil gerne have rettet 2 ting:
1) Fejlen må ikke opstå!
2) Jeg mangler et stykke makro, der fortæller at varenummer ikke findes

Er der nogen der kan hjælpe mig?