Şöyle birşey deneyebilirsiniz - verileriniz accesste oldugu icin-yeni bir recordset tanımlayın
Access sorgularına ne kadar hakimsiniz bilmiyorum accesste belirlediğiniz bu özelliğe sahip kaydı getiren sorguyu nasil tasarlardınız?

rs.Open "SELECT MAX(right(

[Siparis_No],11)) from [MüsteriKayitlari] where [Siparis_No] like '" & textbox.text & "*'", baglant.Connection 

If rs.recordcount =0 then 

Gecici=1

Else

rs.MoveFirst 

Gecici = rs.Fields(0).Value + 1

End if

gibi geçici bir rs oluşturup veriyi aldıktan sonra rs'yi kapatabilirsiniz

---

Yukarıdaki kod sadece temel mantık, sorgu yapısını göstermek için.Recordset açmak için gerekli tüm kodlar girilmemiş olabilir