در حال حاضر من کانکشن و دستورات اسکیو ال را برای فراخوانی عکس از دیتابیس ، از این کلاس استفاده میکنم

Imports System.Data.SqlClient



Public Class DataAccess









    Private ConStr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector  y|\DB_ِDesign.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

      Private SqlCon As New SqlConnection

    Public SqlCmd As New SqlCommand

    Public SqlDR As SqlDataReader





    Public Sub ConOpen()





        Try

            SqlCon.ConnectionString = ConStr

            SqlCon.Open()

        Catch ex As Exception

            'خطا در اتصال به بانک اطلاعاتی

        End Try

    End Sub





    Public Sub ConClose()

        SqlCon.Close()

    End Sub





    Public Function ExecNonQuery(ByVal Query As String) As Integer

        SqlCmd.Connection = SqlCon

        SqlCmd.CommandText = Query

        ExecNonQuery = SqlCmd.ExecuteNonQuery

    End Function





    Public Sub ExecReader(ByVal Query As String)

        SqlCmd.Connection = SqlCon

        SqlCmd.CommandText = Query

        SqlDR = SqlCmd.ExecuteReader

    End Sub


و برای فراخوانی عکس از دیتا بیس به این شکل :

 Dim DB As New DataAccess 

               Dim Table As New DataTable

                DB.ConOpen()

                DB.SqlCmd.Parameters.AddWithValue("@Code", Code)

                DB.ExecReader("SELECT Master FROM Pic WHERE Code = @Code")

                Table.Load(DB.SqlDR)

                If Table.Rows.Count > 0 Then

                    Dim BytBlobData() As Byte = Table.Rows(0).Item(0)

                    Dim BlobData As New MemoryStream(BytBlobData)

                    PicCtrl.Image = Image.FromStream(BlobData)

DB.ConClose()


و بدون مشکل کار میکنه. الان میخوام کانکشن استرینگ موجود در کلاس رو از یک تکست باکس لود کنم با کد زیر ولی موفق نبودم لطفا راهنمایی بفرمایید

Private ConStr As String = frmMain.،Textbox1.Text