Private Sub Anzeigen()
'Tabelle öffnen
Set RS = New ADODB.Recordset
With RS
.CursorLocation = adUseClient
.Open "SELECT * FROM Bilder_OLE", CurrentConnection, adOpenDynamic, _
  adLockOptimistic
End With
 
'timer interval 0 - 65535 millisekunden
Form3.Timer1.Interval = 10000
'Timer starten
Form3.Timer1.Enabled = True
 
End Sub
 
Private Sub Timer1_Timer()
 
'Bilddaten in ByteArray umwandeln und anzeigen
Dim bData() As Byte
bData = RS.Fields("Bild")
Form3.txtName = RS.Fields("Name")
Set Form3.Image1.Picture = ByteArrayToPicture(bData())
 
Call RS.MoveNext
 
If RS.EOF Then
'timer stoppen
Form3.Timer1.Enabled = False
End if
 
End Sub

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep 1000