not sure, but maybe so
....
'find the Id number
Set findvalue = Sheet2.Range("F:F").Find(What:=cIDNumber, LookIn:=xlValues).Offset(0, -3)
If findvalue Is Nothing Then MsgBox cIDNumber & " not found": Exit Sub' this line added
'add the database values to the userform
....