você pode fazê-lo alterando o querydef para incluir o filtro
qd não ofuscante como dao.querydef, DB como dao.database
oSql não ofuscante como a corda, nSql como a corda
ajustar o db=currentdb
ajustar qd=db.querydefs (“SybizOutputQry”)
oSql=qd.sql
nsql=replace (qd.sql, “; ”, "")
nsql=nsql & “onde [OrderID] = 48670”
qd.sql=nSql
acExportDelim de DoCmd.TransferText, “SybizOutputQry”, “C:\Export\test.csv”, falso
'para restaurar para trás o querydef
qd.sql=oSql