Private Sub cmdNext_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "Feld", conn, adOpenStatic, adLockPessimistic
 
If Not rs.EOF Then
     rs.MovePrevious
     If rs.EOF Then
        rs.MoveNext
     End If
  End If
 
  image.Picture = LoadPicture(App.Path & CStr(rs.Fields("Bild").Value))
rs.Close
End Sub