Search And Insert Data Userform

I currently have a search and insert data userform which finds specific data from the textbox and displays the results in a listbox. Then I can select a specific result in the listbox and insert this data into a selected worksheet row. The problem is that the userforms code is out-of- date, i have changed to workbook to a point that the userform doesn't work properly. What i need is a new userform that can do the same thing but with the code simpler to change in case of new updates. Here is some information what is needed:

The data that userform gets information from is on a different Workbook called Database.xls, Worksheet called Data and the Range is A:E. The Data is Product Information which is in the Columns A to E:

A = Product Number (The format is 000-000-00)
B = Product Name (No format is Text)
C = BA (The Format is 00)
D = Price (The Format is £0.00)
E = PQTY (The Format is General)

The Textbox needs to be able to search two different Columns A and B and also their representing formats. For example able to search for the product name or number which formats are 000-000-00 or 00000000. The Listbox needs to show the Datas formats like 000-000-00 and £ 0.00. The Insert button needs to insert a selected row from the lisbox results and insert the Product Number from that row into a selected worksheet row cell which is in Column J. This is the existing code and example.xls if you want some more information on what i need:

Private Sub cmdInsert_Click()
Dim X As Long, ws As Worksheet, i As Long, ii As Integer
Set ws = ActiveSheet
ws.Unprotect ("seasons")
With ActiveSheet
X = ActiveCell.Row
End With
With Me.ListBox1
For i = 0 To .ListCount
If .Selected(i) Then
ws.Cells(X, 10) = .List(i, 0).............