Herkese iyi calışmalar. Barkod programı yapmaya calışıyorum. Bir nokdada takıldım. Aşağıdaki kodlarla veri tabanından arama yaptırıp textboxa kod aktarıyorum. Aktarılan koda bağlı olarak urunun adı ve fiyatını cekiyorum. Listboxtan secilen değere gore sorunsuz calışıyor lakin barkod okuyucu ile texte kod aktardığım zaman ilk urunun bilgilerini aktarıyor ama daha sonraki urunlerde veriyi cekmiyor. Her halde do while dongusunden kaynaklanıyor. Cozum yolu sunacak arkadaşların yardımına ihtiyac var. Şimdiden teşekkur ederim.
Private Sub KodAramaText_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodAramaText.TextChanged
Dim kriter As String = KodAramaText.Text.ToString()

Dim comm As New OleDbCommand
comm.Connection = baglanti
comm.CommandText = "SELECT * FROM GenelBilgiler WHERE UrunKodu='" + kriter + "'"
baglanti.Open()
Dim dtr As OleDbDataReader
dtr = comm.ExecuteReader(CommandBehavior.CloseConnection )
Do While dtr.Read()
UrunAdi.Text = dtr.Item("UrunAdi").ToString()
UrunFiyati.Text = dtr.Item("UrunFiyati") & " TL"
KodAramaText.Focus()

Loop
baglanti.Close()
End Sub
__________________