Dim strConnPicDB As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=NWIND.mdb"
        Dim connPicDB As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
        strConnPicDB)
        Dim cmd As New OleDb.OleDbCommand("SELECT Picture FROM Categories", _
        connPicDB)
        cmd.Parameters.Add("p1", OleDb.OleDbType.Integer).Value = strPicName
        Dim da As New OleDb.OleDbDataAdapter(cmd)
        Dim ds As New DataSet("Piccies")
        da.Fill(ds, "Pics")
        Dim Bytes As Byte() = ds.Tables("Pics").Rows(0)("Picture")
        Dim ms As New IO.MemoryStream(Bytes, 78, Bytes.Length - 78)
        Me.BackgroundImage = New Bitmap(ms)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist