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()