RsetEOF
Function RecordsetIsEmpty(Rec As Recordset) On Error Resume Next Rec.MoveFirst RecordsetIsEmpty = Err <> 0 On Error GoTo 0 End Function
Function RecordsetIsEmpty(Rec As Recordset)
On Error Resume Next
Rec.MoveFirst
RecordsetIsEmpty = Err <> 0
On Error GoTo 0
End Function
(rseteof.html)- by Paolo Puglisi - Modifica del 25/3/2019