button controls to input in textboxes

Imports System.Data
Imports System.Data.SqlClient

Partial Class details
    Inherits System.Web.UI.Page
    Dim con As New SqlConnection
    Dim cmd As New SqlCommand
    Dim str As String
    Dim str1 As String
    Dim dr As SqlDataReader
    Dim i As Integer


    Protected Sub Button14_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button14.Click
        '-validation
        If TextBox1.Text = "" Then
            Label5.Text = "Enter Proper Value"
        End If
        If TextBox1.Text.ToString.Length <> 5 Then
            Label6.Text = "Must Be 5 Character"

        End If
        

        '-------------

        con = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=E:\THE ATM SYSTEM\App_Data\Database.mdf;Integrated Security=True;User Instance=True")

        Session("card_no") = TextBox1.Text.ToString
        Session("pin_no") = TextBox1.Text.ToString
        con.Open()
        str = ("select * from registration where card_no='" + TextBox1.Text + "'")
        cmd = New SqlCommand(str, con)
        dr = cmd.ExecuteReader
        If dr.Read Then
            Label4.Visible = True
            TextBox2.Visible = True
        End If
        str1 = ("select * from registration where pin_no='" + TextBox2.Text + "'")
        cmd = New SqlCommand(str1, con)

        While dr.Read()
            i = i + 1
        End While
        If i > 0 Then
            Response.Redirect("choose.aspx")
        End If

        con.Close()
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = TextBox1.Text + Button1.Text
        Label5.Text = ""
        Label6.Text = ""



    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = TextBox1.Text + Button2.Text
        Label5.Text = ""
        Label6.Text = ""
    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = TextBox1.Text + Button3.Text
        Label5.Text = ""
        Label6.Text = ""
    End Sub

    Protected Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = TextBox1.Text + Button4.Text
        Label5.Text = ""
        Label6.Text = ""
    End Sub

    Protected Sub Button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button5.Click
        TextBox1.Text = TextBox1.Text + Button5.Text
        Label5.Text = ""
        Label6.Text = ""
    End Sub

    Protected Sub Button6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button6.Click
        TextBox1.Text = TextBox1.Text + Button6.Text
        Label5.Text = ""
        Label6.Text = ""
    End Sub

    Protected Sub Button7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button7.Click
        TextBox1.Text = TextBox1.Text + Button7.Text
        Label5.Text = ""
        Label6.Text = ""
    End Sub

    Protected Sub Button8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button8.Click
        TextBox1.Text = TextBox1.Text + Button8.Text
        Label5.Text = ""
        Label6.Text = ""
    End Sub

    Protected Sub Button9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button9.Click
        TextBox1.Text = TextBox1.Text + Button9.Text
        Label5.Text = ""
        Label6.Text = ""
    End Sub

    Protected Sub Button10_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button10.Click
        TextBox1.Text = TextBox1.Text + Button10.Text
        Label5.Text = ""
        Label6.Text = ""
    End Sub

    
End Class