*

Med risk för att komma lite vid sidan om din fråga, varför vill du spara bilden i databasen? Om du vill ha det som en "bildbock" t ex så är det mycket bättre att du enbart spara namnet i databasen. Att spara bilder i en databas gör att databasen blir väldigt, väldigt stor.

Så här har jag löst det:
<code>
Public Sub FileOpen()
Dim sFilnamn As String
On Error GoTo ErrorHandler:
frmCdTitlar.CD.DialogTitle = "Leta upp rätt bild för CD-Omslaget"
frmCdTitlar.CD.CancelError = True
frmCdTitlar.CD.Filter = "Bild Format (jpg,gif)|*.jpg;*.gif"
frmCdTitlar.CD.ShowOpen
sFilnamn = frmCdTitlar.CD.FileName
txtBild.Text = sFilnamn
Image1.Picture = LoadPicture(sFilnamn)
eInfo.Caption = "CD-Omslag för " & Text1.Text

ErrorHandler:
eInfo = "Fel: " & Err.Number & " " & Err.Description
End Sub
</code>
Den här kodsnutten öppnar upp en dialogruta där du kan leta fram dom bilder du vill ha. Som du ser så finns det ett filter som du kan leka med. Jag lägger sedan resultatet i textrutan txtBild

Att sedan ta fram bilden ifrån databasen, kan gå till så här:
<code>
SQL = "SELECT Bild,PM FROM t_Album WHERE Album = '" & Replace(List1.Text, "'", "''") & "'"
Set Rst1 = Con.Execute(SQL)
If Not IsNull(Rst1) Or Not Rst1.EOF Then
txtBild.Text = Rst1(0) & ""
If Len(txtBild) > 5 Then
Image1.Picture = LoadPicture(Rst1(0))
Else
Image1.Picture = LoadPicture("F:\SAW\Databas\vb\Bild\saw.jpg")
End If
Else
txtBild.Text = ""
End If
</code>

När det gäller att spara till databasen, så är det som vanligt när det gäller textrutor.
Jag hoppas att detta har hjälpt dig.

Hej!

Jag har gjort på ett ungefärligt sätt, men ska testa din version, tack så hemskt mkt :-D

Gillar snabba svar :-)