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