Alternatif olsun.

Option Compare Database

Private Sub SiralaAZ_Click()

    Call OrderByx("urun asc")

    Me!SiralaZA.Visible = True

    Me!SiralaZA.SetFocus

    Me!SiralaAZ.Visible = False

    Me!Liste_ürün.SetFocus

End Sub

Private Sub SiralaZA_Click()

  Call OrderByx("urun desc")

    Me!SiralaAZ.Visible = True

    Me!SiralaAZ.SetFocus

    Me!SiralaZA.Visible = False

    Me!Liste_ürün.SetFocus

End Sub

Sub OrderByx(x)

    Liste_ürün.RowSource = "SELECT * FROM tblgelenmal ORDER BY " & x

End Sub