' Modul
Public Function Rs_MoveNext(Rs As Recordset) As Boolean
  On Error Resume Next
  Rs.MoveNext
  Rs_MoveNext = (Err.Number = 0)
  On Error Goto 0
End Function

' in Form
Rs_MoveNext Adodc1

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de