Cantidad e registros en tabla

Hola, no puedo obtener la cantidad de registros de la tabla, me devuelve siempre -1 en lugar de la cantidad existente realmente.
Si alguien tiene idea lo agradeceria.

db.DataSource = “Driver={Microsoft Access Driver (*.mdb)};Dbq=” + trim(label5.text) + “;Uid=Admin;Pwd=;”
If db.Connect Then

  dim tables2 as recordset
  sql = "SELECT * FROM " +label10.text
  tables2=db.SQLSelect(sql)
  if tables2<>nil then
    label16.text=str(tables2.RecordCount)
  end if

end if