Encrypt And Dencrypt در SQL و ارتباط با کمبوباکس

[پرستو پارسایی]

با سلام در حالت معمول با کد زیر اطلاعات رو از دیتابیس برای کمبو باکس دریافت میکنم و مشکلی نیست ولی اگر بخواهم اطلاعات رو Encrypt کنم و در دیتابیس ذخیره کنم ( که بدون مشکل انجام داده ام ) ، رو Dencrypt کنم و در کمبو باکس دریافت کنم با مشکل روبرو شدم ممنون میشم در صورت اطلاع نحوه صحیح دریافت اطلاعات در کمبو باکس رو راهنمایی بفرمایید . سپاسگزارم

 Private Sub Load_Cmb()

        Dim cn As New SqlConnection

        With cn

            .ConnectionString = Lbl1.Text

            .Open()

        End With

        Dim dt As New DataTable

        Dim da As New SqlDataAdapter("select User_N from TBL_Afra", cn)

        da.Fill(dt)

        If dt.Rows.Count > 0 Then

            With Cmb_User

                .Items.Clear()

                For i As Integer = 0 To dt.Rows.Count - 1

                    .Items.Add(dt.Rows(i).Item("User_N"))

                Next

                .Text = Nothing

                .SelectedIndex = -1

            End With

        End If

        With cn

            .Close()

            .Dispose()

        End With