Visual Basic - consulta SQL desde visual con Access

Me gustaria saber como puedo sacar resultados a un listbox con una consulta SQL que realice contra una base de datos que esta en Access. Para acceder a la base de datos y a la tabla que deseo hago lo siguiente:

'abrimos la base de datos
Set db = OpenDatabase(App.Path & "ase_datosGes_club.mdb")

'para elegir la tabla
Set jg = db.OpenRecordset("alta")

A partir de aqui es donde necesito ayuda para poder hacer la consulta y guardar los resultados en un listbox. Soy un poco novato asi que agradeceria mucho que me lo indicaseis con un ejemplo. Gracias de antemano.

Si no neceitas usar jg puedes hacer
Set jg=de.openrecordset("Select * from tabla where Condiciones")
en caso contrario define otro Recordset y lo mismo
Dim Aux as Recordset
set aux=bd.openrecordset("Select ......")

gracias. pero como mando los datos que me de la consulta al listbox.

Porque no usas un combobox que es mejor a mi me sirvio

aux1 = "'" + dtcarti.Text + "'"(si es alfa)
rs1.Open "Select * from tipoart where tptipo = " & aux1 & ""
If Not rs1.EOF Then
txtcod = rs1!tpnum
txtdesc = rs1!tpdesc

End If
rs1.Close