Run-time error '-2147217900 (80040e14)'

[Kro]

I have a tree list control I want to populate with Categories based on a
Client. The client number is input into a text box & then the update event
populates the tree based on the selection. I get a syntax error when it
tries to open the recordset based on the SQL. Two tables are invloved
(Client & Categories; in a 1-to-many relationship on pID field). Here'e the
code:

Dim rstCategory As New ADODB.recordset, rstComponent As New ADODB.recordset
Dim rstSubComponent As New ADODB.recordset
Dim tvwTree As Object
Dim nodX As Node
Dim I As Integer
Dim blnAllRecs As Boolean
Dim SQL As String


Set tvwTree = Me.tvwItems

'Renumber all items
RenumberItems

'Clear out all current items
tvwTree.Nodes.Clear

'Set blnAllRecs to use in query building
If Me.fmeView = 1 Then
blnAllRecs = False
Else
blnAllRecs = True
End If

'Build recordset for Categories (from a pre-selected client) at top level
SQL = "SELECT Categories.pID, Categories.catID, Categories.catName " & _
"FROM Categories " & _
"WHERE Categories.pID = " & Forms!frmComponents!txtpID & _
"ORDER BY Categories.catName"

rstCategory.Open SQL, CurrentProject.Connection, adOpenStatic,
adLockReadOnly


Any suggestions?

 

[Alex Dybenko]

Hi,
try to add a space in front of ORDER
if no - then paste resulted sql into new query window and try to run it

--
Best regards,
___________
Alex Dybenko (MVP)
http://accessblog.net
http://www.PointLtd.com