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, "tablo.5")
 TextBox6.DataBindings.Add("text", dsr, "tablo.6")
 TextBox7.DataBindings.Add("text", dsr, "tablo.7")

        If IsNumeric(TxtAra.Text) Then
        Else
            TxtAra.Text = 0
        End If
        Dim Sql As String = "SELECT * FROM Tablo1 WHERE([0]=" & TxtAra.Text & ")"
        Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='vt1.mdb'")
        Dim cmd As New OleDbCommand(sql, con)
        If con.State = ConnectionState.Closed Then con.Open()
        Dim tbl As OleDbDataReader = cmd.ExecuteReader()

        While tbl.Read = True
            TextBox1.Text = IIf(IsDBNull(tbl.Item("1")), "", tbl.Item("1"))
            TextBox2.Text = IIf(IsDBNull(tbl.Item("2")), "", tbl.Item("2"))
            TextBox3.Text = IIf(IsDBNull(tbl.Item("3")), "", tbl.Item("3"))
            TextBox4.Text = IIf(IsDBNull(tbl.Item("4")), "", tbl.Item("4"))
            TextBox5.Text = IIf(IsDBNull(tbl.Item("5")), "", tbl.Item("5"))
            TextBox6.Text = IIf(IsDBNull(tbl.Item("6")), "", tbl.Item("6"))
            TextBox7.Text = IIf(IsDBNull(tbl.Item("7")), "", tbl.Item("7"))
        End While
        tbl.Close()