Private Sub SrchEmp_Click()
Sheet1.Unprotect Password:="1234"
Dim fnd As Range ' this will be the same as your entry in TextBox1
Dim tbl As Range ' this will be the table to search
Set tbl = Sheet1.Range("F3").CurrentRegion
'run the search
Set fnd = tbl.Find(What:=TextBox5.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
'if the item is not found the user is informed and the textbox cleared
If fnd Is Nothing Then
MsgBox "Employee not found on Database!", 16, "Message from Employee Update"
TextBox5.Value = ""
Exit Sub
'if the item is found the details will be copied to the labels
Else: fnd.Activate
End If
'now put the information stored adjacent to the found item into label1,etc
TextBox1.Value = fnd.Offset(0, -4).Value
TextBox2.Value = fnd.Offset(0, -3).Value
TextBox3.Value = fnd.Offset(0, -2).Value
TextBox4.Value = fnd.Offset(0, -1).Value
TextBox5.Value = fnd.Offset(0, 0).Value
TextBox6.Value = fnd.Offset(0, 1).Value
TextBox7.Value = fnd.Offset(0, 2).Value
TextBox8.Value = fnd.Offset(0, 3).Value
TextBox9.Value = fnd.Offset(0, 4).Value
TextBox10.Value = fnd.Offset(0, 5).Value
TextBox11.Value = fnd.Offset(0, 6).Value
TextBox12.Value = fnd.Offset(0, 7).Value
TextBox13.Value = fnd.Offset(0, 8).Value
TextBox14.Value = fnd.Offset(0, 9).Value
TextBox15.Value = fnd.Offset(0, 10).Value
TextBox16.Value = fnd.Offset(0, 11).Value
TextBox17.Value = fnd.Offset(0, 12).Value
TextBox18.Value = fnd.Offset(0, 13).Value
TextBox19.Value = fnd.Offset(0, 14).Value
TextBox20.Value = fnd.Offset(0, 15).Value
TextBox21.Value = fnd.Offset(0, 16).Value
TextBox22.Value = fnd.Offset(0, 17).Value
TextBox23.Value = fnd.Offset(0, 18).Value
TextBox24.Value = fnd.Offset(0, 19).Value
TextBox25.Value = fnd.Offset(0, 20).Value
TextBox26.Value = fnd.Offset(0, 21).Value
TextBox27.Value = fnd.Offset(0, 22).Value
TextBox28.Value = fnd.Offset(0, 23).Value
TextBox29.Value = fnd.Offset(0, 24).Value
TextBox30.Value = fnd.Offset(0, 25).Value
TextBox31.Value = fnd.Offset(0, 26).Value
TextBox32.Value = fnd.Offset(0, 27).Value
TextBox33.Value = fnd.Offset(0, 28).Value
TextBox34.Value = fnd.Offset(0, 29).Value
TextBox35.Value = fnd.Offset(0, 30).Value
TextBox36.Value = fnd.Offset(0, 31).Value
TextBox37.Value = fnd.Offset(0, 32).Value
TextBox38.Value = fnd.Offset(0, 33).Value
TextBox39.Value = fnd.Offset(0, 34).Value
TextBox40.Value = fnd.Offset(0, 35).Value
TextBox41.Value = fnd.Offset(0, 36).Value
TextBox42.Value = fnd.Offset(0, 37).Value
TextBox43.Value = fnd.Offset(0, 38).Value
TextBox44.Value = fnd.Offset(0, 39).Value
TextBox45.Value = fnd.Offset(0, 40).Value
TextBox46.Value = fnd.Offset(0, 41).Value
TextBox47.Value = fnd.Offset(0, 42).Value
TextBox48.Value = fnd.Offset(0, 43).Value
TextBox49.Value = fnd.Offset(0, 44).Value
TextBox50.Value = fnd.Offset(0, 45).Value
TextBox51.Value = fnd.Offset(0, 46).Value
TextBox52.Value = fnd.Offset(0, 47).Value
TextBox53.Value = fnd.Offset(0, 48).Value
TextBox54.Value = fnd.Offset(0, 49).Value
TextBox55.Value = fnd.Offset(0, 50).Value
TextBox56.Value = fnd.Offset(0, 51).Value
TextBox57.Value = fnd.Offset(0, 52).Value
TextBox58.Value = fnd.Offset(0, 53).Value
TextBox59.Value = fnd.Offset(0, 54).Value
TextBox60.Value = fnd.Offset(0, 55).Value
TextBox61.Value = fnd.Offset(0, 56).Value
TextBox62.Value = fnd.Offset(0, 57).Value
TextBox63.Value = fnd.Offset(0, 58).Value
TextBox64.Value = fnd.Offset(0, 59).Value
TextBox65.Value = fnd.Offset(0, 60).Value
TextBox66.Value = fnd.Offset(0, 61).Value
TextBox67.Value = fnd.Offset(0, 62).Value
TextBox68.Value = fnd.Offset(0, 63).Value
TextBox69.Value = fnd.Offset(0, 64).Value
TextBox70.Value = fnd.Offset(0, 65).Value
TextBox71.Value = fnd.Offset(0, 66).Value
TextBox72.Value = fnd.Offset(0, 67).Value
TextBox73.Value = fnd.Offset(0, 68).Value
TextBox74.Value = fnd.Offset(0, 69).Value
TextBox75.Value = fnd.Offset(0, 70).Value
TextBox76.Value = fnd.Offset(0, 71).Value
TextBox77.Value = fnd.Offset(0, 72).Value
TextBox78.Value = fnd.Offset(0, 73).Value
TextBox79.Value = fnd.Offset(0, 74).Value
TextBox80.Value = fnd.Offset(0, 75).Value
TextBox81.Value = fnd.Offset(0, 76).Value
TextBox82.Value = fnd.Offset(0, 77).Value
TextBox83.Value = fnd.Offset(0, 78).Value
TextBox84.Value = fnd.Offset(0, 79).Value
TextBox85.Value = fnd.Offset(0, 80).Value
TextBox86.Value = fnd.Offset(0, 81).Value
TextBox87.Value = fnd.Offset(0, 82).Value
TextBox88.Value = fnd.Offset(0, 83).Value
Sheet1.Protect Password:="1234"
End Sub