[VB.NET] تعديل على كود بحث - نسخة قابلة للطباعة

PHP كود :
Public Function CheckFN(ByVal dt As DataTable, ByVal Inputword As String)
        Dim countword As Integer
        For s As Integer = 0 To dt.Rows.Count - 1
            If dt.Rows(s).Item(0) = Inputword Then
                countword = countword + 1
            End If
        Next
        Return countword
    End Function


    Sub InPutdt(InputChar As String, OutputChar As String)
        For s As Integer = 0 To dt.Rows.Count - 1
            If CheckFN(dt, dt.Rows(s).Item(0).replace(InputChar, OutputChar)) = 0 Then
                dt.Rows.Add(dt.Rows(s).Item(0).replace(InputChar, OutputChar))
            End If
        Next
    End Sub


    Public Sub Load_ByName(ByVal Name As String)
        Dim cmd As New SqlCommand("select * from Table where 
                                    Name Like @Name ", connSQL)
        cmd.Parameters.Add("Name", SqlDbType.NVarChar).Value = "%" & Name & "%"
        connSQL.Open()
        dt2.Load(cmd.ExecuteReader)
        connSQL.Close()
        cmd = Nothing
    End Sub


'ضع هذا السطر في حدث اللود
dt.Columns.Add("Col_Name")




Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        dt.Clear()
        dt2.Clear()

        dt.Rows.Add(TextBox1.Text)
        InPutdt("ا", "أ")
        InPutdt("ا", "إ")
        InPutdt("ا", "آ")

        InPutdt("أ", "ا")
        InPutdt("أ", "إ")
        InPutdt("أ", "آ")

        InPutdt("إ", "ا")
        InPutdt("إ", "أ")
        InPutdt("إ", "آ")

        InPutdt("آ", "ا")
        InPutdt("آ", "أ")
        InPutdt("آ", "إ")

        InPutdt("ي", "ى")
        InPutdt("ى", "ي")

        For s As Integer = 0 To dt.Rows.Count - 1
            Load_ByName(dt.Rows(s).Item(0))
        Next
        DataGridView1.DataSource = (dt2)