Dim Ta As DataTable
        Ta = New DataTable("Bauwerk_BWK")
 
        Cn = New SqlConnection(ConnStr)
        Cn.Open()
        Cmd = New SqlCommand("Select BWK_IMAGE FROM Bauwerk_BWK WHERE" & _
          "BWK_KURZBEZEICHNUNG = '" & KZB & "'", Cn)
 
        Da = New SqlDataAdapter(Cmd)
        Da.Fill(Ta)
        If Ta.Rows.Count = 0 Then
            MsgBox("0")
        End If
        Dr.Close()
        Cn.Close()
 
        Dim Zeile As DataRow = Ta.Rows(Me.BindingContext(Ta).Position)
        Dim AnzahlBytes As Integer = Zeile.Item("BWK_IMAGE").Length
        Dim PicFeld(AnzahlBytes - 1) As Byte
 
        PicFeld = CType(Zeile.Item("BWK_IMAGE"), Byte())
        If PicFeld.Length = 0 Then
            MsgBox("Kein Bild!")
            Exit Sub
        End If
 
        Dim MemSt As New System.IO.MemoryStream(PicFeld, 0, AnzahlBytes)
 
            Pic.Image = Image.FromStream(MemSt)