Uso una routine per scansionare un immagine,funziona tutto bene registra l'immagine sul DB sql senza problemi
ma se riprovo a scansionare la stessa immagine solleva questa eccezione:
errorewia.JPG
questa la routine che richiamo
  Dim fs As FileStream = Nothing
        Dim mytable As DataTable = Nothing
        Dim myrow As DataRow = Nothing
        ApriDataBase()
        apritesserasanitaria()
        mytable = dtscnr.Tables(0)
        Dim risposta As String = String.Empty
        Dim ms As New System.IO.MemoryStream()
        scantsrsanitariaFronte()
        pictesseraFronte.Load(JpgFilename)
        risposta = CType(MessageBox.Show("vuoi salvare l'immagine?", "immagine acquisita", MessageBoxButtons.YesNo, MessageBoxIcon.Information), String)
        If CType(risposta, Global.Microsoft.VisualBasic.MsgBoxResult) = vbYes Then
            ' Try
            fs = New FileStream(BmpFilename, FileMode.OpenOrCreate, FileAccess.Read)
            Dim ImgData(fs.Length) As Byte
            fs.Read(ImgData, 0, System.Convert.ToInt32(fs.Length))
            fs.Close()
            Try
                myrow = mytable.Rows(record)
                myrow.Item("imgfronte") = ImgData
                cmdBuilder = New SqlCommandBuilder(dacnr)
                dacnr.MissingSchemaAction = MissingSchemaAction.AddWithKey
                'Salvo i dati modificati 
                dacnr.Update(dtscnr)
                '  JpgFilename = Nothing
            Catch ex As Exception
                MessageBox.Show("Errore: " & ex.Message)
            Finally
                If Not objconn Is Nothing Then
                    If objconn.State = ConnectionState.Open Then
                        objconn.Close()
                    End If
                    objconn.Dispose()
                End If
            End Try
            MessageBox.Show("Aggiornamento Effettuato.", "Registrazione Avvenuta.", MessageBoxButtons.OK, MessageBoxIcon.Information)
            ms.Close()
        End If
e questa la routine richiamata
 Private Sub scantsrsanitariaFronte()
        Dim _Dialog As New WIA.CommonDialog
        JpgFilename = _Path & _Filename & "03.jpg"
        BmpFilename = _Path & _Filename & "03.jpg"
        Elimina_File()
        Dim _ImageFile As New ImageFile
        _ImageFile = _Dialog.ShowAcquireImage(WiaDeviceType.ScannerDeviceType)
        If _ImageFile Is Nothing Then
            Exit Sub
        Else
            _ImageFile.SaveFile(BmpFilename)
            Application.DoEvents()
            _Dialog = Nothing
            _ImageFile = Nothing
        End If
    End Sub
Sicuramente esiste il modo per rilasciare la risorsa ma non saprei il metodo giusto,se qualcuno vuole indirizzarmi nel modo corretto...