Dim strPicName As Integer = 1
 
 
        Dim strConnPicDB As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
          "Source=C:\db.mdb;"
 
        'Datenbankverbindung 
        Dim connPicDB As OleDb.OleDbConnection = New OleDb.OleDbConnection( _
          strConnPicDB)
 
        'Command 
        Dim cmd As New OleDb.OleDbCommand("Select * From Pictures", connPicDB)
        cmd.Parameters.Add("ID", OleDb.OleDbType.Integer).Value = strPicName  _
          'Get image
        connPicDB.Open()
 
        Dim Bytes2 As Byte() = cmd.ExecuteScalar()
        connPicDB.Close()
        Dim ms As New IO.MemoryStream(Bytes2, 78, Bytes2.Length - 78)
 
 
        Me.BackgroundImage = New Bitmap(ms, False) 'FEHLER: {"Ungültiger" & _
          "Parameter."}