Private strPicName As Integer = 1
    Private Sub LP()
 
        Dim strConnPicDB As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=NWIND.mdb"
 
        'Datenbankverbindung 
        Dim connPicDB As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
          strConnPicDB)
 
        'Command 
        Dim cmd As New OleDb.OleDbCommand("SELECT Picture FROM Categories WHERE" & _
          "CategoryID=?", connPicDB)
        cmd.Parameters.Add("p1", OleDb.OleDbType.Integer).Value = strPicName
 
        'Get image
        connPicDB.Open()
        Dim Bytes As Byte() = cmd.ExecuteScalar()
        connPicDB.Close()
        Dim ms As New IO.MemoryStream(Bytes, 78, Bytes.Length - 78)
 
 
        Me.BackgroundImage = New Bitmap(ms)
    End Sub

________
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