Bunuda Hallettik Field("uye_no") Yanlış Yazmışım Bu Seferde Tüm Bİlgileri Listeliyor yalnız Sadece ßir Tane Üye Numarası OLmasına Ragmen 4 Tane Üye Numarası Çıkıyor Şu anda Kod ßu Şekilde

Dim sayi, i As Integer

Dim cevap

If Adodc2.Recordset.RecordCount = 0 Then

cevap = MsgBox("Listelenecek Kayıt Yok", 48)

Combo1.Enabled = False

Else

Adodc2.Recordset.MoveLast

sayi = Adodc2.Recordset.RecordCount

Adodc2.Recordset.MoveFirst

For i = 1 To sayi

Combo1.AddItem Adodc2.Recordset.Fields("uyNo")

Adodc2.Recordset.MoveNext

Next i

Adodc2.Recordset.MoveFirst

End If