' Controls: 1 * Timer, 1 * Image
 
Option Explicit
 
Private RS As Variant
Private flgDB As Boolean
 
Private Sub Form_Load()
  Timer1.Enabled = False
  ' Tabelle öffnen
  Set RS = New ADODB.Recordset
  With RS
    .CursorLocation = adUseClient
    .Open "SELECT * FROM Bilder_OLE", CurrentConnection, adOpenDynamic, _
      adLockOptimistic
  End With
  flgDB = True ' Datenbank offen
End Sub
 
Private Sub Form_Activate()
  Static flgEinmal As Boolean
 
  If flgEinmal = False Then
    flgEinmal = True
    DoEvents
    Call Timer1_Timer ' 1. Aufruf erzwingen
    If flgDB = True Then
      ' Timer Interval 0 - 65535 Millisekunden
      Timer1.Interval = 3000 ' erst die Zeit festlegen
      ' Timer starten
      Timer1.Enabled = True ' dann Timer einschalten
    End If
  End If
End Sub
 
Private Sub Timer1_Timer()
  Dim bData() As Byte
 
  If RS.EOF = False Then
    ' Bilddaten in ByteArray umwandeln und anzeigen
    bData = RS.Fields("Bild")
    txtName = RS.Fields("Name")
    Set Image1.Picture = ByteArrayToPicture(bData())
    Call RS.MoveNext
  Else
    ' alle Bilder durch
    ' Timer stoppen
    Timer1.Enabled = False
    Call RS.Close
    flgDB = False ' Datenbank geschlossen
  End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
  Timer1.Enabled = False
  ' Datenbank noch offen?
  If flgDB = True Then
    Call RS.Close
    flgDB = False ' Datenbank geschlossen
  End If
End Sub

Gruss,

Zardoz