Sub ExtractImages()
 
        Try
 
 
            Dim strConnPicDB As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
              "Source=""" & strFile & """;Jet OLEDB:Database Password=XXXXXX"
 
 
            Dim connPicDB As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
              strConnPicDB)
            connPicDB.Open()
            Dim Bytes2 As Byte()
            Dim cmd As OleDb.OleDbCommand
            Dim fs As System.IO.FileStream
            Dim ms As IO.MemoryStream
 
 
 
            If Directory.Exists(Me.RunPath & "Pictures") = False Then
                 Directory.CreateDirectory(Me.RunPath & "Pictures")
            End If
 
 
            For Each strTemp As String In strList
                If Not bolCancelUpdate Then
 
 
 
                    cmd = New OleDb.OleDbCommand("SELECT Bild FROM" & _
                      "Fragenkatalog WHERE Nummer=" & Chr(34) & strTemp & Chr( _
                      34), connPicDB)
 
                    cmd.Parameters.Add("ID", OleDb.OleDbType.Integer).Value = 1 _
                      'Get image
 
 
                    Bytes2 = cmd.ExecuteScalar()
                    ms = New IO.MemoryStream(Bytes2, 78, Bytes2.Length - 78)
 
 
 
 
                    If File.Exists(Me.RunPath & "Pictures\" & strTemp & ".jpg") _
                      Then
                        File.Delete(Me.RunPath & "Pictures\" & strTemp & ".jpg")
                    End If
                    fs = System.IO.File.OpenWrite(Me.RunPath & "Pictures\" & _
                      strTemp & ".jpg")
 
                    fs.Write(Bytes2, 0, Bytes2.GetUpperBound(0))
 
                    fs.Close()
                    RaiseEvent ExtractFile(Array.IndexOf(strList, strTemp), _
                      strList.GetUpperBound(0))
 
                Else
                    Exit For
                End If
                fs = Nothing
                cmd = Nothing
                Bytes2 = Nothing
                ms = Nothing
 
 
            Next
            connPicDB.Close()
            RaiseEvent ExtractFinished()
 
        Catch ex As Exception
            bolCancelUpdate = True
            strUpdateAbortError = "Beim Extrahieren der Bilder ist ein Fehler" & _
              "aufgetreten." & vbCrLf & vbCrLf & ex.Message
 
 
        End Try
    End Sub