[solved] is that possible to modify access query criteria from access module?

[asmdev]

i found the way already, if you got something different, plez post to share

Dim dba As DAO.Database
    Dim dbq As DAO.QueryDef
    Set dba = CurrentDb
 
        Set dbq = dba.QueryDefs("Q_FOLLOW_COUPON")
        dbq.SQL = "SELECT * FROM BIODATA WHERE bCouponNo='" & txtSearch2 & "'"
        DoCmd.OpenForm "D_BIODATA"