Access/SQL Server .adp (project) ado programming

[dbeelow@comcast.net]

All I'm trying to do is fill in a list box. I have multiple columns in the list box but the index on additems does not work. I've tried every permutation I can think of. No luck. I give up.

How do I fill in a access list box from a SQL table all in a "project" ADO?

Dim rsRMFind As New ADODB.Recordset

Set rsRMFind = New ADODB.Recordset

rsRMFind.Open "select * from Client_Info where [cli_Org_ID] = '" & Me!SearchFor & "'", CurrentProject.Connection, adOpenStatic

rsRMFind.MoveFirst

i = 0
With Me.SearchResults

Do
ListIndex(i, 0).AddItem rsRMFind!cli_Company_Name
ListIndex(i, 1).AddItem rsRMFind!cli_Org_ID
Me.SearchResults.Column(1).AddItem rsRMFind!cli_Org_ID
i = i + 1
rsRMFind.MoveNext


Loop Until rsRMFind.EOF
End With

[June7]

Do you have established link to the SQL table? If so, why not just set the RowSource property of combobox to a query or SQL statement? What is Me!SearchFor - a field on form?

Sounds like you are trying to do dependent (cascading) comboboxes. Set the RowSource to:

SELECT cli_Company_Name, cli_Org_ID FROM Client_Info WHERE cli_Org_ID = [SearchFor];

Then in SearchFor AfterUpdate event:

Me.SearchResults.Requery

However, if this on a continuous or datasheet form, will not work nice.