Dim cn1 As New OleDbConnection
            Dim cm1 As New OleDbCommand
            Dim da1 As New OleDbDataAdapter
            Dim strConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="

Dim i As Integer = 0
        Dim l As Integer = Me.TextBox2.Text.Length
        Dim a As String = Nothing
        While i < l
            If Me.TextBox2.Text.Substring(i, 2) > 31 And Me.TextBox2.Text.Substring(i, 2) < 130 Then
                a += Chr(TextBox2.Text.Substring(i, 2))
                i += 2
            Else
                a += Chr(TextBox2.Text.Substring(i,

textbox1.text=chr(textbox2.text)