MDB veritabanında Barındırılan Değerin Numaratör olarak kullanılması?

[ybilgin]

Arkadaşlar Merhaba,
Sitedeki örneklerden yola çıkarak MDB veritabanı üzerine Ekle, Değiştir, Sil gibi
işlemler yapabiliyorum.


-------------------------------------------------------------------------
SORUNUM ŞÖYLE :

TESTDB.mdb isimli veri tabanımız var.

Bu veritabanında iki adet Tablomuz var:
1. tablomuz = TEST
2. tablomuz = TEST2
----------------------------------------------
MDB veritabanı ile bağlantı kurarak Listbox1 içine TEST Tablosundaki verileri alıyorum.
Buraya kadar sorun yok.
----------------------------------------------
MDB veritabanının TEST2 tablosunda Veri tipi sayı olan ve sadece 1. satırda sadece 1 adet verimiz var. TEST2 Tablosunda hiç bir zaman 2. SAtır olmayacak. Burada yazan veriyi Numaratör olarak kullanmak istiyorum.
Bu veriyi değişken olarak tanımlayıp, üzerine 1 ilave edip TextBox1 e Aktarmaya çalışıyorum. Yapamıyorum.
Örnek dosya üerinde yardımcı olabilirseniz çok sevinirim.

RS = TABLO
RS2 = TABLO2

Private Sub listboxyukle()
Dim NUMARATOR
ListBox1.Clear
Set baglan = CreateObject("adodb.connection")
Set RS = CreateObject("adodb.recordset")
Set RS2 = CreateObject("adodb.recordset")
Call baglanti
RS.Open "select * from [TEST1]", baglan, 1, 3
RS2.Open "select * from [TEST2]", baglan, 1, 3
With ListBox1
.RowSource = Empty
.ColumnCount = 3
.ColumnWidths = "60;60"
.Column = RS.GetRows
End With

'NUMARATOR = TEST2 TABLOSUNDAKİ RAKAMI HAFIZAYA YÜKLE
'TextBox1.value = NUMARATÖR + 1

RS.Close
RS2.Close
Set RS = Nothing
Set RS2 = Nothing
End Sub

 

[ybilgin]

Uğraşa uğraşa çözdüm

Set NUMARAVER = RS2
'NUMARAVER.Fields.Refresh
NUMARAVER.MoveFirst
TextBox1 = NUMARAVER![NUMARATOR]