'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)
yada recordset yöntemiyle