yada recordset yöntemiyle

'DAO için : DAO 3.6 yada yeni sürümlerde Microsoft Office 16.0 Access database engine Object Library  referansı eklenecek



Dim Rs, RsLstBx As Recordset 

Set Rs = Me.Liste_ürün.Recordset

Rs.Sort = "[urun] desc"

Set RsLstBx = Rs.OpenRecordset

Set Me.Liste_ürün.Recordset = RsLstBx.OpenRecordset

Not: Bu kodu daha sonradan hatırlamak için kendime yazdım)