Bueno mas o menos de lo q entendi es q necesitas controlar la cantidad de registros q contiene una Tabla no? osea como se sabe cuando esta queda vacia sale un error por lo mismo. Si entendi bien, entonces este error primero lo puedes controlar con el RecordCount del Recordset q llama a esta Tabla:
Código:
Public Function Verificar()
Dim RsAux As ADODB.Recordset
Set AccessData = New ProyData.AccessData
Set RsAux = New ADODB.Recordset
Sql = "SELECT * FROM TABLA "
Set RsAux = AccessData.Return_Sql(Sql)
'Verificas cuantos registros tiene tu Tabla
If RsAux.RecordCount > 0 Then
RsAux.MoveFirst
.........
.........
.........
Else
'Aca Controlas el Error cuando no existen registros en tu tabla mediante un mensaje
Msgbox "No existen Registros"
Endif
end function Espero te sirva. Suerte.
Como controlar el error de BD vacia de Access (registros) 
Mode Lineal
