select TOP 10 table.* from table
so put a box on a form then the query is:
sSql = "select TOP " & me.txtLimit & " table.* from table"
save it to the query:
dim qdf as querydef
set qdf = currentdb.querydefs("qsMyQry")
qdf.sql =sSql
qdf.close
docmd.openquery qdf.name