[vb] Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='vt.mdb'")
Dim dvr As New OleDbDataAdapter("SELECT * from tablo1 where no='" & txtara.Text & "' ", baglanti)
Dim dsr As New DataSet
dvr.Fill(dsr, "tablo")

TextBox1.DataBindings.Add("text", dsr, "tablo.1")
TextBox2.DataBindings.Add("text", dsr, "tablo.2")
TextBox3.DataBindings.Add("text", dsr, "tablo.3")
TextBox4.DataBindings.Add("text", dsr, "tablo.4")
TextBox5.DataBindings.Add("text", dsr, "