Listbox with Access DB

[LonC25]

I have a listbox that diplays the tables of an Access DB. I need to be able to click on a item in the listbox and display the contents of that table into a DBGrid.

I have the listbox populated with the table names, but I can't get the click funtion to populate the DBGrid with the selected table data.

 

[CCLINT]

On the combo's click event:

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = wrkJet.OpenDatabase("C:\myData\myDb.Mdb", False, False)

Set rs = db.OpenRecordset("SELECT * FROM " & Combo1.Text, dbOpenSnapshot)

Set Data1.Recordset = rs

Data1 is the DAO data control which the DBGrid is bound to.