Listing 2: Using ADO.NET 2.0 to Load VARBINARY(MAX) Data

   Sub ImportBLOB()

BEGIN CALLOUT A
        Dim fs As New FileStream _
          ("c:\temp\win2003.bmp", FileMode.OpenOrCreate, FileAccess.Read)
        Dim iLen As Integer = CInt(fs.Length)
        Dim bBLOBStorage(iLen) As Byte
        fs.Read(bBLOBStorage, 0, iLen)
        fs.Close()
END CALLOUT A

BEGIN CALLOUT B
        Dim cn As New SqlConnection(sConnectionString)
        Dim cmd As SqlCommand = New SqlCommand _
         ("INSERT INTO MyBLOBTable (blob_description, blob_data) " _ 
            & "VALUES(@blob_description,    @blob_data)", cn)
        cmd.CommandType = CommandType.Text
        cmd.Parameters.Add("@blob_description", SqlDbType.VarChar)
        cmd.Parameters("@blob_description").Direction = ParameterDirection.Input
        cmd.Parameters.Add("@blob_data", SqlDbType.Image)
        cmd.Parameters("@blob_data").Direction = ParameterDirection.Input

        ' Store the file name
        cmd.Parameters("@blob_description").Value = "My BLOB"
        ' Store the byte array in the image field
        cmd.Parameters("@blob_data").Value = bBLOBStorage

        cn.Open()
        cmd.ExecuteNonQuery()
END CALLOUT B

    End Sub