If I enter a string into a prompt box it returns the result but I need it to return two results:

IE the name and price in 2 text boxes:

prompt$ = "Enter the full (complete) Carpet Name."

SearchStr$ = InputBox(prompt$, "Carpet Search")
Data1.Recordset.Index = "Carpet Name"
Data1.Recordset.Seek "=", SearchStr$
If Data1.Recordset.NoMatch Then
Data1.Recordset.MoveFirst
End If

this code returns the one result is there anyway of modifying this to return to such as the carpet Price into a text box called txtPrice

Any Ideas?

cheers good people!

Rhys