Try
            Dim save As New OpenFileDialog
            save.Filter = ("Alle Dateien(*.*)|*.*|JPEG's(*.jpg)|*.jpg|BMP's(" & _
              "*.bmp)|*.bmp|GIF's(*.gif)|*.gif")
            save.Title = ("Image-Datei für Modellreihe:")
            save.ShowDialog()
            Dim Save_Datei As String = save.FileName
            Pfad = Save_Datei
            speichern_bild_Modellreihe()
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Fehler beim Speichern der Image-Datei (" & _
              "Datei-Pfad):", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
 
 Private Sub speichern_bild_Modellreihe()
        Try
            Me.PictureBox_Modellreihe.Image = New Bitmap(Pfad)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Fehler beim Anlegen eines Neuen" & _
              "Images:", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        End Try
        Try
            ' Speichert das Bild, das im PictureBox-Steuerelement
            ' Picture1 angezeigt wird, in der vorbereiteten Datenbank.
 
            ' Image in einen MemoryStream schreiben
            Dim ms As MemoryStream = New MemoryStream
            Me.PictureBox_Modellreihe.Image.Save(ms, ImageFormat.Jpeg)
 
            ' BLOB-Bytearray aus dem MemoryStream
            Dim bytBLOBData(CInt(ms.Length) - 1) As Byte
            ms.Position = 0
            ms.Read(bytBLOBData, 0, ms.Length)
 
            Me.MEINETABELLETableAdapter.CmdUpdateSymbol(Environment.UserName, _
              bytBLOBData, Me.GUIDTextBox.Text)
            MessageBox.Show("Modellreihen-Bild erfolgreich per Update in der" & _
            "Datenbank gespeichert!", "Erfolgsmeldung:", MessageBoxButtons.OK, _
            MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Fehler beim Speichern des" & _
              "Modellspez.-Bildes in Datenbank:", MessageBoxButtons.OK, _
              MessageBoxIcon.Error)
        End Try
    End Sub

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten