I was watching a youtube video. ExcelVBAIsFun's video. http://www.youtube.com/watch?v=ulIraDmhF0o.

I followed his visual instruction (I am deaf so I cannot listen to him talk). I have this error message when I run the button.

I have this client search page on one sheet and the database on other. I saved the database as namebox and used the listbox to link to it. It shows 7 columns.

I want it to pull the information from first column in the database sheet to the listbox (in client search page).

Error message is this, "Run-time error'-2147467259 (80004005)': Unspecified error.

When I clicked debug, it yellow highlighted "Me.lbxClientLookUp.Clear" When I deleted it. It went to the next line. "For x = 2 To lr" When I hovered over that line, it says X = Empty.

[code]
Private Sub cmbClientSearch_Click()
crit = Range("C4")

If Cells(Rows.Count, 1).End(xlUp).Row = 1 Then
lr = 2
Else
lr = Cells(Rows.Count, 1).End(xlUp).Row
End If

Me.lbxClientLookUp.Clear

For x = 2 To lr
If Cells(x, 2) = crit Then
'write it to lbx
Me.lbxClientLookUp.AddItem Cells(x, 1)
Me.lbxClientLookUp.List(Me.lbxClientLookUp.ListCou nt - 1, 1) = Cells(x, 2)
Me.lbxClientLookUp.List(Me.lbxClientLookUp.ListCou nt - 1, 2) = Cells(x, 3)
Me.lbxClientLookUp.List(Me.lbxClientLookUp.ListCou nt - 1, 3) = Cells(x, 4)
Me.lbxClientLookUp.List(Me.lbxClientLookUp.ListCou nt - 1, 4) = Cells(x, 5)
Me.lbxClientLookUp.List(Me.lbxClientLookUp.ListCou nt - 1, 5) = Cells(x, 6)
Me.lbxClientLookUp.List(Me.lbxClientLookUp.ListCou nt - 1, 6) = Cells(x, 7)

End If

Next x


End Sub
[code]

Any assistant with this will be greatly appreciated.

Amber