Veri tabanındaki bilgiyi textbox'a aktarma

Herkeze merabalar.

Aşağıda yapmak istediğim şey text1'in change olayında veri tabanındaki bilgiyi text9'a yazdırmak. aslında where kodu olmadan
yazdırıyorum ama veri tabanında tek kayıt varsa örneğin barkod nosu 10 olan bir kayıt var text1 de 1 yazdığımda text9 'a veri tabanındaki "mecut_stok_miktari" alan adındaki bilgiyi yazıyor ama veri tabanında 2 kayıt varsa hata veriyor hata şu arkadaşlar:

ya BOF ya da EOF doğru veya geçerli kayıt silinmiş.istenen işlem geçerli bir kayıt gerektiriyor.

PHP Kod:
Private Sub Text1_Change()

Dim mevcut_stok As New ADODB.Recordset

mevcut_stok.Open "select * from urun_alis where barkod_no= '" & Text1.Text & "'", "dsn=kendistp", adOpenStatic, adLockOptimistic

Text9.Text = mevcut_stok("mevcut_stok_miktari")

End Sub

yardımlarınız için şimdiden teşekkürler.

Örnek dosyanızı ekleyin lütfen.

formun içerisinde bir bölümdü sadece textbox' change olayına dair onun için eklemedim

sorunu da çözdüm zaten on error resume next kodunu unutmuşum teşekkürler

Formun içinde bir bölümde olsa iki bölümde olsa örnek dosya işi kolaylaştırır. Ayrıca sorunu çözmemişsiniz hatayı gizlemişsiniz. Potansiyel işlem ve kayıt hataları olabileceğini gözardı etmeyin.

mantıksal olarak doğru sorunu görürsen yinede devam et komutu peki bunun dışında bu iş nasıl gerçekleşecek bu durumda yani textbox'ın change olayında böyle yapıyorlar vb 6.0 da başka bir yol varmı? teşekkürler.

Veri tabanındaki bilgiyi textbox'a aktarma

sherlockholmes

alpeki99

sherlockholmes

alpeki99

sherlockholmes