what's wrong with this code

[PedroSantos]

thanks.

Private Sub CC_AfterUpdate()
Dim db As Object
Dim rcdset As Recordset
Dim qdef As Object
Set db = CurrentDb
Set qdef = db.CreateQueryDef("Top_", "SELECT TOP 10 * FROM tops")
Set rcdset = qdef.OpenRecordSet()
Me.Recordset = rcdset
db.QueryDefs.Delete qdef.Name
End Sub

 

[Jack Cowley]

What error are you getting? What do you want the code to do? What version of Access are you using?

 

[PedroSantos]

I have a listbox, and I want to create a query based on what I choose in the list box (although in the example it always creates the same query).
I'm receiving a type mismatch error, and i'm using access XP.
thanks.

Pedro Santos

 

[Jack Cowley]

Why not have a query and let the list box supply the criteria? [Forms]![YourFromName]![ListBoxName] in the Criteria field will filter the data based on your list box selection....