Dim FileShow As New OpenFileDialog()
        With FileShow
            .Filter = "jpg files (*.jpg)|*.jpg;*.jpeg|All files (*.*)|*.*"
            .FilterIndex = 1
 
            Dim myStream As Stream
            If .ShowDialog() = DialogResult.OK Then
                myStream = .OpenFile()
                If Not (myStream Is Nothing) Then
                    Try
                        Dim myReader As StreamReader = New StreamReader( _
                          myStream)
                        Dim bmp As New System.Drawing.Bitmap( _
                        myReader.BaseStream)
 
                        Me.PictureBox1.Image = bmp
                        Me.PictureBox1.SizeMode = _
                          PictureBoxSizeMode.StretchImage
 
 
                        Dim SQL_STR As String = "UPDATE ZV_Mitglieder SET " & _
                          "`Foto` = 'XXXX' WHERE `Id` =" & Mitglieder_Id
                        Dim Conn_Comm As New MySqlClient.MySqlCommand(SQL_STR, _
                        MySql_Connection)
                        Conn_Comm.ExecuteNonQuery()
 
 
                    Catch ex As Exception
 
                    End Try
                End If
            End If
        End With