Visuan basic de buradaki çalışmaları takip ederek programlamayı öğrenmeye
 çalışıyorum.
Günlerdir bu sorunu çözmek için elimden geldiğince araştırma
 yaptım, fakat bir sonuç elde edemedim. 
 Eray hocanın
 https://banadersanlat.com/index.php/visual-basic-net-video-dersleri/70-database-deki-kaytlar-textbox-lara-aktarma.html 
buradaki videosunda access veri tabanı kullanarak sorgu yapıyor. 
Fakat ben sql server kullanacağım için bu anlatılanları sql e göre
 yapamadım.
 Eray Hocanın yazdığı kodlar;
 Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If TextBox2.Text = “” Then
MessageBox.Show(“Barkot No Giriniz…” +System.Environment.NewLine + “Tekrar Deneyiniz”, “Bilgi Ekranı”)
 End If
 Dim c As New OleDb.OleDbConnection
 c.ConnectionString = “Data Source=localhost;Initial Catalog=HASTANE;Integrated Security=True”
 c.Open()
Dim adp As New OleDbDataAdapter(“select * from PROTOKOL40 where BARKODKODU'” + TextBox2.Text + “‘”, c)
 Dim cmd As New OleDbCommand(“select * from PROTOKOL40 where BARKODKODU'” + TextBox2.Text + “‘”, c)
Dim ds As New DataSet
 Dim dr As OleDbDataReader
 adp.Fill(ds)
 dr = cmd.ExecuteReader
 Do While dr.Read
 ListBox1.Text = dr.GetString(0)
 Loop
 dr.Close()
 c.Close()
 End Sub
 Sql de birkaç farklı kod kullanmak gerekiyormuş,
 Rica etsem bu formun sql server de çalışması için değiştireceğim kodlar ı
 belirte bilirmisiniz
 Teşekkür ederim