Пишу на VB.NET а тут попался рабочий кусок кода на С# , решил перегнать его в бейсик и чё то не работает видать, где то ошибка при переводе, не пойму где ?    Мозя кто подскажет.

// С#  
private void DisplayCommunityImage(HttpContext context, string fileName)
  {
   SqlDataReader dr;
   dr = ImageUtility.GetCommunityImage(fileName);
  
   if(dr.Read())
   {
    
    SqlBinary buffer= (byte[])dr["Image_imageData"];
    context.Response.ContentType = dr["Image_contenttype"].ToString();
    context.Response.BinaryWrite((byte[])buffer );
   }
   dr.Close();
  }

вот так я написал :

Private Sub DisplayCommunityImage(ByVal Context As HttpContext, ByVal filename As String)
   Dim dr As SqlDataReader
   dr = ImageUtility.GetCommunityImage(filename)
  
       If  dr.Read()  Then 
           Dim buffer As SqlTypes.SqlBinary = CType(dr("Image_imageData"), byte())
           context.Response.ContentType = dr("Image_contenttype").ToString()
           context.Response.BinaryWrite(CType(buffer, byte())
      End If
  
   dr.Close()
End Sub

Код в С# работает, а вот в VB нет.
Ошибка в  строчке:
 Dim buffer As SqlTypes.SqlBinary = CType(dr("Image_imageData"), Byte())

 Пишет что невозможно преобразовать значение 1-мерного массива в SqlBinary ?

 Теперь пишет  ошибка в  строчке:
   Context.Response.BinaryWrite(CType(buffer, Byte()))

 Невозможно преобразовать значение типа SqlTypes.SqlBinary  в 1-мерный массив из  Byte?

Спасибо Михаил !
Все заработало