cn.Open()
        rst = cn.Execute("Select * from tblDataset where ArtikelNr='1001'")
        If Not rst.EOF Then
            Dim Bytes As Byte()
            Bytes = CType(rst.Fields("bild").Value, Byte())
 
            Dim Pic As Bitmap
            Pic = New Bitmap(New MemoryStream(Bytes))
            Pic.Save(Application.StartupPath & "\temp.jpg")
        End If
        rst.Close()
        cn.Close()