GRAVAR DADOS VARBINARY(MAX) GRANDES

 Private Sub cmdAnexo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnexo.Click

        Dim dr As DialogResult = Me.ofdAnexo.ShowDialog()

        [ô]Define as propriedades do controle OpenFileDialog
        Me.ofdAnexo.Multiselect = False
        Me.ofdAnexo.Title = [Ô]Selecionar Anexos[Ô]
        ofdAnexo.InitialDirectory = [Ô]C:\[Ô]
        ofdAnexo.Filter = [Ô]Todos os Arquivos (*.*)|*.*[Ô]
        ofdAnexo.CheckFileExists = True
        ofdAnexo.CheckPathExists = True
        ofdAnexo.FilterIndex = 2
        ofdAnexo.RestoreDirectory = True
        ofdAnexo.ReadOnlyChecked = True
        ofdAnexo.ShowReadOnly = True

        If dr = System.Windows.Forms.DialogResult.OK Then

            [ô]***  Le os arquivos selecionados caso a propriedade Multselect seja True

            [ô]For Each file As [String] In ofdAnexo.FileNames
            [ô]    txtArquivo.Text += file
            [ô]    txtArquivo.Tag += ofdAnexo.SafeFileName
            [ô]Next
            txtArquivo.Text = ofdAnexo.FileName
            txtArquivo.Tag = ofdAnexo.SafeFileName

        End If

    End Sub

 Private Sub sSalvaArquivo()

        Dim strQuery As String
        Dim strNome As String
        Dim ds As New DataSet
        ds.Dispose()

        Try

        objConexaoImagens.AbreConexao()

            For Each grdAnex As DataGridViewRow In grdAnexos.Rows
                If grdAnex.Cells(edgvSupervisor.CheckBox).Value = True Then
                    objclsAnexo.pID_Imagem = grdAnex.Cells(edgvAnexos.ID_Imagem).Value

                    strQuery = objclsAnexo.fPesquisa([Ô]BAIXARANEXO[Ô])
                    ds = New DataSet([Ô]Anexos[Ô])
                    ds.Dispose()
                    ds = objConexaoImagens.AbreDataSet(strQuery, [Ô]Anexos[Ô])

                    Dim MyData() As Byte = New Byte(0) {}
                    Dim myRow As DataRow = ds.Tables([Ô]Anexos[Ô]).Rows(0)

                    strNome = myRow([Ô]Descricao[Ô]).ToString
                    MyData = CType(myRow([Ô]Arquivo[Ô]), Byte())

                    Using stream = New FileStream(txtCaminho.Text & [Ô]\[Ô] & strNome, FileMode.Create, FileAccess.Write)
                        stream.Write(MyData, 0, Convert.ToInt32(MyData.Length))
                    End Using

                End If
            Next grdAnex

            Call frmMsgBox.Show([Ô]Arquivo(s) salvo(s) com sucesso.[Ô], MsgBoxStyle.Information, Me.Text)

        Catch ex As Exception
            MsgBox(ex.Message)

        Finally
            objConexaoImagens.FechaConexao()

        End Try

    End Sub

CREATE TABLE dbo.HelpDesk_Imagem
	(
	ID_Imagem int NOT NULL IDENTITY (1, 1),
	Descricao varchar(50) NOT NULL,
	Arquivo varbinary(MAX) NOT NULL
	)  ON [PRIMARY]
	 TEXTIMAGE_ON [PRIMARY]
GO

ALTER TABLE dbo.HelpDesk_Imagem ADD CONSTRAINT
	PK_HelpDesk_Imagem PRIMARY KEY CLUSTERED 
	(
	ID_Imagem
	) WITH( STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]

GO

INSERT INTO HelpDesk (ID_Chamado, Descricao, Arquivo)
SELECT
1 AS ID_Chamado
,[ô]Teste[ô] AS Descricao
, * FROM OPENROWSET (BULK [ô]\\data3\Arquivos \HelpDesk\Imagem_Temp\MVREGCLEAN.txt[ô], SINGLE_BLOB) AS Arquivo