invoking append parameter query in VB

[cooksc]

I have a simple append query that I would like to run from VB to avoid the dialog boxes promted when not using VB. I have a table created and run a delete query before the append query. Here is the code I have so far.
I need assistance with the parameter query part of the code. The query I currently have has the criteria [forms]![Parts]![Part number]

Any help is greatly appreciated



Public Function Update()

Dim dbs As DAO.Database


Set dbs = CurrentDb


dbs.Execute ("New_Part_qry")

End Function

[cooksc]

Thanks......even though I didn't get any replies

[Hack]

What was the solution?

It might help others.