Database - Parameters

Tabelle # per dare li parametri ad una query
Dim State As querydef
Dim Currente As database
Set Currente = currentdb()
Set state = Currente.querydefs("Pippo")
State.parameters("DAData") = Miadata
Set State = state.openrecordset
Vedi la grande guida Access 7
pagina 78