can't search word or phrase in my database

Hello,
i have homework from my college
I want build application warehouse database, but in case "publisher" can't search by phrase or word only can search first word in database.
please help me. this case confused for me....
The workbook is in the attachment. I've tried to insert some code, but my logic is not good enough.

Regards

Please upload the workbook to the forum.

Most of us are reluctant to visit third party sites whose provenance is unknown

Originally Posted by Richard Buttrey

Please upload the workbook to the forum.

Most of us are reluctant to visit third party sites whose provenance is unknown

this is file attachment

Would you give a couple of specific examples of what you are trying to do, what result you get or what happens and what you expect to happen.

Tell us what text you are entering in the user form, where, what you are picking from drop downs and any other relevant information.

thanks richard for u attention,

Case "Publisher"  'Publisher
For sat = 2 To Cells(65536, "a").End(xlUp).Row
Set deg1 = Cells(sat, "a")
Set deg3 = Cells.Find(deg2, LookIn:=xlValues)
If UCase(deg1) Like UCase(deg3) & "*" Then
firstAddress = deg3.Address
Do
ListBox1.AddItem
ListBox1.List(s, 0) = Cells(sat, "A")
ListBox1.List(s, 1) = Cells(sat, "B")
ListBox1.List(s, 2) = Cells(sat, "C")
ListBox1.List(s, 3) = Cells(sat, "D")
s = s + 1
Set deg3 = Cells.FindNext(deg3)
Loop While Not deg3 Is Nothing And deg3.Address <> firstAddress
End If: Next

result:
SnapCrab_NoName_2015-6-11_16-16-28_No-00.png


i have tried this is:

Case "Publisher"  'Publisher
For sat = 2 To Cells(65536, "a").End(xlUp).Row
Set deg1 = Cells(sat, "a")
Set deg3 = Cells.Find(deg2, LookIn:=xlValues)
If UCase(deg1) Like UCase(deg3) & "*" Then
firstAddress = deg3.Address
Do
ListBox1.AddItem deg3.Value
ListBox1.List(s, 0) = Cells(sat, "A")
ListBox1.List(s, 1) = Cells(sat, "B")
ListBox1.List(s, 2) = Cells(sat, "C")
ListBox1.List(s, 3) = Cells(sat, "D")
Set deg3 = Cells.FindNext(deg3)
Loop While Not deg3 Is Nothing And deg3.Address <> firstAddress
End If: Next

result:
SnapCrab_NoName_2015-6-11_16-17-28_No-00.png