usted puede hacerlo alterando el querydef para incluir el filtro
qd dévil como dao.querydef, DB como dao.database
oSql dévil como secuencia, nSql como secuencia
fijar el db=currentdb
fijar qd=db.querydefs (“SybizOutputQry”)
oSql=qd.sql
nsql=replace (qd.sql, “; ”, "")
nsql=nsql y “donde [OrderID] = 48670”
qd.sql=nSql
acExportDelim de DoCmd.TransferText, “SybizOutputQry”, “C:\Export\test.csv”, falso
'para restaurar detrás el querydef
qd.sql=oSql