Salve a tutti ho un problema con una select...il proble consiste che mi da un errore...che è erro 3061 previsto 1

il codice lo genero all'interno di un db acces del 97........ora vi posto il codice grazie a tutti...........


Dim destinazione
Dim data
Dim ARTICOLO
Dim QTASPED
Dim numddt
Dim cliente
Dim rigabolla

data = Me.dataddt
destinazione = Me.destinazione
ARTICOLO = Me.ARTICOLO
QTASPED = Me.QTASPED
numddt = Me.numddt
cliente = Me.cliente
rigabolla = Me.riga_ddt


Dim dbs As Database, rst As Recordset, rst1 As Recordset


Set dbs = OpenDatabase("C:/db/Gestione.mdb")


Set rst = dbs.OpenRecordset("SELECT * from ORDCLI WHERE cliente =cliente and ARTICOLO = articolo and QUANTITA > QTASPEDITA order by DATASCADENZA ASC ;")

grazie a tutti