Imports System.Data.OleDb 
 
   Private Sub Datenbank_Bild_INSERT()
 
        Dim SqlString As String = "INSERT INTO Bild (Pic) VALUES (@1)"
 
        Using conn As New OleDbConnection(oConnection)
            Using cmd As New OleDbCommand(SqlString, conn)
                cmd.CommandType = CommandType.Text
 
                If Not Me.Pic_Hintergrundbild.Image Is Nothing Then
                    Dim nBytes() As Byte
                    With New ImageConverter
                        nBytes = CType(.ConvertTo(Pic_Hintergrundbild.Image, _
                          GetType(Byte())), Byte())
                    End With
                    cmd.Parameters.AddWithValue("@1", nBytes)
                Else
                    cmd.Parameters.AddWithValue("@1", DBNull.Value)
                End If
 
                Try
                    conn.Open()
                    cmd.ExecuteNonQuery()
                Catch ex As Exception
                    MsgBox("Fehler beim Einfügen des Bildes!" & vbCrLf & _
                      ex.Message, MsgBoxStyle.Information)
                End Try
            End Using
        End Using
 
    End Sub
    Private Sub Datenbank_Bild_laden()
 
        Using oCon As OleDbConnection = New OleDbConnection(oConnection)
            Using oAdapter As OleDbDataAdapter = New OleDbDataAdapter("SELECT" & _
              "Pic FROM Bild", oCon)
                Using oTable As DataTable = New DataTable
 
                    oAdapter.Fill(oTable)
 
                    If oTable.Rows.Count > 0 Then
                        Dim oRow As DataRow = oTable.Rows(0)
                        Dim nBytes() As Byte
                        nBytes = CType(oRow("Pic"), Byte())
                        If nBytes.Length > 0 Then
                            ' Unter Zuhilfenahme des ImageConverter-Objekts 
                            ' lässt sich ein Byte-Feld sehr einfach in ein 
                            ' Image-Objekt überführen
                            With New ImageConverter
                                Me.Pic_Hintergrundbild.Image = CType( _
                                  .ConvertFrom(nBytes), Image)
                            End With
                        End If
                    End If
 
                End Using
            End Using
        End Using
 
    End Sub

Hänk

(Wer früh aufsteht hat mehr vom Tag)